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Current economic trends have brought about an increased 
awareness cf the need for preductivity gains in th2 work- 
place. Like all facets of business, government is finding 
increased pressures te reduce expenditures and still previde 
service to the people. To meet the challenges of reducing 
costs and maintaining service levels, government managers 
are looking toward office automaticn and computerizaticn to 
increase individual froductivity. Ths Navy Fleet Material 
Sepport Cfifice (FMSC), iike most Government Agencies, is 
Geangeits part to dmprove productivity. 

The Lefective Material Section of FMSO (Cod2 91423) is 
designated as the overall monitor for the quality deficiency 
Management informaticn réporting systen. A Thesis entitled 
A System Analysis and Design For Updating the Internal 


aS ES as me Se oe Se — ee ae eee 


m at the 


ieee rice: Materzal Support Office by Michael D. Carriger 


recommended the develcpment of a prototype network of inex- 
pensive microcomputers and the creation of a Central 
Datatase System. This prototype system will demonstrate the 
feasibility of automating the QDR Processing Procedures, and 
Will allew the evaluation of processing with automated tech- 
niques. Additionally, the pretotype will provide the rasic 
design for future ¢DR Systems and its interaction with 
users. [Ref. 1] 

Current microcomputer technology has allowed very 
powerful systems to tke created at relatively low ccests. 
Microprocessors with over 512,000 characters of memory can 
process cver 500,000 instructions per second. Secondary 
storage units can access over 35 million characters of data 
at tke rate of 5 fillion bits per second. Relational 





Tatakase systems allcw micrcccmputers to create, update, and 
Manage large databases of information at relatively low 
cOSstSs. 

The purpose of this Thesis is to develop a Protctype 
Tatakase Management Information System for use at the 
Defective Material Section of FMSO (Code 91423). This 
system will utilize current microcomputer technology and 
off-the-shelf hardware and scftware. Application frograms 
Will be generated with a high level database mnanipulation 
language. For this applicaticn, dBASE II (by Ashton-Tate), 
IBM-PC micrccomputers, PCnet (Ey Orchid Technology), and 20 
MB hard disk storage devices (by Tallgrass Technology) are 
utilized to create tke Management Information System. This 
hardware and software was selected because: 1908 2 had 
already keen evaluated and was in use at other sections of 


Biieos 2) it appeared that it could meet the precessing 
reguirements for the QDR System; 3) it could be easily 
obtained with minimal cost to the project; almicen 4 ieee e GO lid 


ke incerporated intc both the short term and leng tern 
rrocessing goals for FMSO { Ref. 1}. 

The major areas of concern for the project center 
around: 1) contertion caused by multiple users accessing the 
same Data Ease Filés over a microcomputer network; 2) 
Security logon protection for the system; 3) Flexibility to 
respond to ad hoc information requests; and 4) providing 
meaningful system dialcg for untrained computer users. 


II. METHCDOLOGY 

The development of the Quality Deficiency Repcerting 
(QDR) System was based on modern software engineering and 
design principles. Tata flow diagrams, structure charts, 
and a high level programming language aided in the creation 
of the systen. Using tOp-dewn design to provide a logical 
basis for development, the scftware creation involved: 1) 
studying and understanding the QDR process, 2) idéntifying 
at least one method cf solving the problem, 3) creating data 
flow diagrams tc shew the gross data transformations, 4) 
using the data flow diagrams to construct a structure chart, 
and 5) describing each abstraction used in the solution in a 
Manner that lends itself to eventual coding in a high level 
language. [{Ref. 2] 

The initial study of the QDR System was based on Michael 
D. Carriger'ts thesis work. This provided much of the kLack- 
ground infcrmation that was necessary to formulate a 
rossible solution. Eased on the operational environment and 
the users' level of computer familiarity, it was decided 
that a menu driven system be created. This would provide an 
easy to understand interface for the unfamiliar user. Data 
flow diagrams were generated to identify the transformation 
Mmuemaata from input to output. This provided a pictorial 
representation of the data used by the QDR System and estab- 
lished a means of identifying the changes that tcok place 
during tke life cf a CDR Case (See figure 2.1 and 2.2). 

The data flow diagrams provided the basis for creating 
the system's hierarchical structure. By reviewing the ktasic 
transformations perfcrmed by the system, it became apparent 
that there are three main activities necessary for main- 


taining the Central Database. These basic activities 
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Figure 2.2 Qdr Update and Close. 


prompted *h¢e creation cf the Open Case, Update, and Close 


Case modules. Ali cther functions associated with the CDR 


1 





System are support modules for presenting the Database 
information to the end user, maintaining support Dateb 
Files, and generating management information (See figur 
es and 2.4). 


The QDR System was implemented using the command 


(iD 


& 
Sat 


languag¢ for dBASE II, a Relational Database Product. This 
command languag? is a high level language that supforts 
Elock ctructured development. It 1S an intéerpretiva 
language that must be re-evaluated through each pass of the 
program execution. To ensure program clarity, the programs 
utilized meaningful rames to identify variables and make the 
flow of informaticn more apparent to the readér. 
Information hiding was utilized to reéduce the amount of 


unnecessary informaticn handled by éach progran. Required 


fu 


- 
de 


informaticn is passed between programs as the data is ne 


@ 


}-- 
bh 


for processing (See Appendix A for a complete listing o 


Passed Variables). Information hiding also conceals th 


D 


processing algorithms used within a program. When inteér- 
acing programs, tke programmer only needs to knew what 
information passes bétween programs and not how the infcrmra- 
tion is treated internally. The us? of information hiding 
techniques reduces tke complexity of systems development by 
allowing the programs to be developed independently Lased on 
interfacing requirements only. { Ref. 3] Another meéchanisn 
to simplify the programs is tc include comment lines to make 


them more readable and understandable +O maintenance 


personnel. 
As sach program was created, it was tested to ensures 
that it accurately performed the function for which it was 


designed and did not contain errors. AS individual fprograms 
were tested, they were combined with other tested units te 
ensure ccmpatibility between the various system ségments. 
This integration testing was performed to ensures that the 


individual programs WOmccomet t Con TUnCt ion With cther 
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programs and modules. As ¢rrors were detected in ctrecg 


am 


and mcdules, these bugs were corrected and then reéetes 


ct 
rw) 


‘Q 


5 
was performed for both individual and integration tests. 


p 


All of the initial tests were performed ina single 


fo 
in 


= 


4 


envirecnment to reduce some of the system complexity. Oncé a 
program cr module had completed both individual and integra- 
tion testing, these units were then tested in the multi-user 


(Db 


envircnment. Other aspects of the software development ar 


discusséd in more derth later. 


is 





III. SYSTEM DEVELOPMENT 

The development of the QDR System considered many 
aspects cf computer utilization. The system was designed as 
an integrated package of hardware and software that was to 
be utilized as a management information tool. To preduce 
the desired results, both hardware selection and software 
development requirements were made considering the utiliza- 
tion of the system and the targét group of system operators. 
Such things as user interface, the multi-user environment, 
security, system cost, and the availablity of system ccmfo- 
nents were integrated in the methodology of developing the 
QDR System. 


A. SQFTWARE 


The criginal QDR software design centered around a data 
Meeerccnsisting of 8,000 - 10,000 records in the Open Fils 
and 16,000 - 20,000 records in the Closed File. ielelel (elie 
these records contained thirty data fields and required 275 
Characters of data. Hsadquarters level changes to CDR 
processing procedures expanded the scope of the data files 


considerably. New data requirements in support cf th 


(D 


Froduct Deficiency keporting System and Evaluation Pregram 
(PDREF) increased the files ‘tc fifty four data elements 
réquiring cver 600 characters of data per QDR Case. (See 
Appendix B for a complete ist of Database structures and 
Appendix C for the Data Element Definitions.) To accomcdate 
these additional data items, the case records had <+o be 
soc antc two parts. This was necessary becausé crt a 
restricticn in the Database Management Software used for the 
systen. The current DBMS allowed a maximum of thirty two 


data elemen+s per database f119¢. 
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The sccpe of tke changes mentioned above required 4 
total redesign of the QDR System. Pec Oowrna  PCIint, 4 
substantial amount of design work and actual programmirg and 
testing had been completed. Although many of the "lesscns 
learned" during the initial design could be applied tc the 
redesign, and many cf the initial algorithms could be mnodi- 
fied and reused, the redevelopment effort required @ signif- 
icant amount of time and effort. All user interface 
programs had to be redesigned and, in many cases, repro- 
grammed to accomodate the new data elements and previde a 
meaningful interface. The change in scope drastically 
reduced the time available for complete testing, documenta- 
tion and insplementation thus resulting in the protctype 
system béing morse carable, DUS Legquiring additional effort 
in the atove areas. 

Much of the software development was aimed at providing 
a system that had an easy ~O understand user interface, 
could be used in a multi-user environment, provided a degrees 
of security, and was maintainable. The following secticns 
discuss €ach of these areas and provide some insight into 
how these were achieved. Throughout this chapter, the terms 


module and program are used interchangably. 


1. User Interface With QDR System 


The interface between the user and the QDR System 
waS a majcr point of concentration to ensure the usefulness 
of the entire systen. In order to allow for the lack of 
experience cf the analysts with automated tools and to avoid 
training costs for newly assigned personnel, the percertion 
that tke personal ccmputers were really "QDR Machines" was 
Meme zed. The Entire dialog of a user with the machine was 
centered around the functional aspects of the current 
working énvironment. A menu based system wes utilized to 


guide the analysts through their cas¢ processing. At gach 


le 





point where a checice cculd be made, tne user was presented 
with an explicit message. If an invalid choice was made, 
the system would ther provide a message indicating an e2rrcz, 
and show the valid range cf choices available to the user at 
mmat particular point. If the user was familiar with the 
tange of valid inputs and did net make an entry error, then 
the messages would net appear on the screen. This allowed 
for the more experienced user to avoid some of the screen 
Eeometing. The System was written such that each of ths 
user "QDR Machines" wouid automatically initialize itself 
and bé in @ state waiting for the user to logon (See figure 
Berl) . 


| Pek LeuRe USER I.D. 
XXXX 


5 1°: 
| 
J 


a 


Figure 3.1 Logon Prompt. 


This isolated the user from any of the underlying 
machine opérating system and preparatory steps that are 
normally associated with putting today's microcomputers into 
operation. PremoOmmy fUncel@nectias «the computer wes avail- 
able for was the precessing of QDR's. When an analyst 
terminated operations for the day the terminal would again 
Gemeetmcona State LSady for ancther user to logon cr for the 
analyst to re-enter the system. 

The procedure for an analyst to enter the QDR Systen 
is démonstrated by the following selection of screen 
displays and choices «hat are availablie. The process bégins 
with entry into the system at the beginning of the day. 


Fach analyst has been assigned a user 1.D. and a unique 


ue 





password by the system supervisor. The system has ¢arlier 
been PEG c sao by the Supervisor. The first screen 
presented prompts for the analyst to enter his unique access 
identification (See figure 3.1). If the access I.D. i 


in 
3 
O 
d 


i 
ct 
an 
(0 


on file, cr was entered incorrectly, a message comes on 
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| ACCESS 
PL 
{ 


eee 


| 
| 
Pe DeNOL.ON FILE { 
BASE REENTER | 


Figure 3.2 Invalid I.D. Message. 


screen (See figure 3.2). A check is also made to determines 
if the user is currently logged onto another terminal in the 
systen. If currently logged on, then access is denied and 


the follcwing message will then be displayed (See figure 





Faqyre 3.3 Currently Logged Message. 


3.3). If the correct Access I.D. is entered then the system 


will prempt to enter the password. The password requires 





] 


ENTER PASSWORD FOLLOWED BY <CR> 
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Figure 3.4 Login Prompt. 


Ws 





exact upper/lower case entry (Figure opn4). Three chénces 
are given tc successfully enter the password and if unsuc- 
cessful, the console is locked out and may only be put back 
into cp¢eration by the system supervisor. A successful logon 
will te followed by a greeting to the QDR System, and th3 
user will be presented with the main menu which contains all 
of his processing options (See figure 3.5). 


WELCOME TO THE QDR AUTOMATED TRACKING SYSTEM 


Open New Record 
Close Record 

Update Record 
Cmrgane <2 le ct Sr 
Report Generation 
Query 

Exit from the System 


ION LE WN = 
#tetveoees 


Puaeeome your Choice 


a a a GED pe) oe ae oe oe ee ee 


) 
| 
L 
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Beaegite 3.5 Main Menu. 


From the main menu (figure 3.5), the analyst has the 
cpticn tc ofen a new case, update an existing case, clcse a 
case, originate a letter tc an item manager, get a listing 
cf all of his open cases in the QDR System, query the data- 
bases for information or to leave the QDR Systen. 

AS an example of the process required to open a new 
QDR case, the follcwing sequence shows the screéns as 
presented to the analyst. In ordé¢r to open a case, the 
analyst chcoses a "1" frem the main menu and then is 
presented with a screen where verification of desire is 
required. This allows the analyst to change his mind before 
beginning the process and to return to the main menu. A 
choice of "1" puts tke user in the case opening process (See 
MMGUETE 3.6) . 
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#4 *%% OPEN NEW CASE *#**** 


THIS PRCGRAM ENABLES YOU TO OPEN A 
NEW QDR CASE 


ieaecOML NUE 
Zo even oO, MENU 


SS SE a eS i A I a 
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: 
| 
| 
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Figure 3.6 Verification Message. 


The input screens presented to the user are designed 
with the source input document Standard Form 368 (SF 368) as 
the basis. Fach of the items of information are captured 
from the numbered blecks of the SF 368. Where informaticn is 
not identified on the form, yet is needed for the QDR case, 
input is reguested at the location where most often written 
in by the analyst or Ly the originating office. The purpces=2 
cf this was to maximize the ease and fluidity of data entry 
by the analyst by ccnsidering the physical location cf the 
data as well as the lecgical relationship cf the elements. 

The first entry reguired was the date the cas¢ was 
received by FMSO. A standard (MMDDYY) format for dates was 
utilized throughout the QDR pregrams, based upon user sfpeci- 
ficaticns (See figure 3.7). 

After entry cf the national stock number, a frompt 
to verity the initial data is put on the screen. Ages 
enables the analyst tc ensure that ths correct case will be 
created and will alleviate a later nead tc delete an invalid 
case frem tke database (See figure 3.8). MeEenGlce ores! 
allows the changing cf any initial data item before contin- 


uing to the second screen. 


Za 
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| 
ede ENTER LATA FOR THE NEW CASE 4% k% 4 | 
ste ah ak kek 2k FROM SF 368 ste ak ie este ee 3k 
| 

: 
| DATE RECEIVED EY FMSO MMDDYY ‘'XXXXXX' 
CAT "yt | 
| COG "xx! | 

NSN UXXX-XX-XXXX-XXXX! 

—— 


Figure 3.7 Initial Entry Screen. 


VERIFY ABOVE INFORMATION 

| YOU MAY NOT CHANGE IT AFTER THIS { 
WITHOUT STARTING OVER AGA | 

| fe CGiemiOnheme2z—- CHANGE 3 - EXIT | 
mei a be —: a 


Figure 3.8 Bailout /Change Option. 


The analyst is next presented with a full screen of 
data elements. The layout is such that the left side cf the 
item laktels contains the numbers relating to the SF 368 
Breocks. This porticn is blank where the element is net on 
the SF 368. Following each element label is a reverse video 
representation showing the correct length of the input item. 
The inputs which aré opticnal are marked by a <O> (Se¢ 
feguce 3.9). The cursor moves from one data element to the 
next cne as the analyst completes item entry. Any incorrect 
Smemecue Cre bDOUNndS entry will result in a specific ¢=r0 


a 


message to the user showing the valid range of infuts. 
These error messages, when activated, appear on the last 
line cf the screen. The user can thus consistently lock to 
a Single location for status or error messages from the CDR 


SySteén. 
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| 5 F368 
| : NSN | 
CATEGO RY 
| SMIC 
1A. UIC 
| 3. REPORT CONTROL | 
nm CATE DISCOVERED MMDDYY 
6. NOMENCLATURE 
7 FSCM <O> 
| 8. MFG. PART NUMBER <o> 
| 9. SERIAL/LOT/BATCH <O> 
16. CONTRACT/ EO <O> | 
| LOCUMENT NUMBER <O> 
1a ITEM N OR O <O> 
| 12. DATE MFG/REP/OVHL <O> 
13. CEN TIME AT FAILURE <O> 
| 14. GOV FURNISHED MATL <O> 
15. CTY: REC/INSP/DEF/STK 
16a1. TYPE/MODEL/SERIE <O> 
| a2. SERIAL NUMBER <O> 
| b. NEXT HIGHER ASSY <O> 
| SUB-AS SEMBLY <O> 
keke =CHECK PREVIOUS ENTRIES  **k*¥** 
CHOCSE 1- CONTINUE ENTRY 2- MAKE CORRECTIONS 
| | 
ee | 


Figure 3.9 First Screen of data. 


Consistent with the previous choices of leaving a 
particular screen, the analyst has the ability to make 
changes befcre proceeding. The next screen of data presents 
the same kasic format to the user, and allows the input of 
the seccnd half of the data elements. The NSN and category 
of the case being input are echoed at the top of the screen 
so the analyst may keep track of them for later reference. 
Data items are calculated by the program where possible and 
then inserted into the screen at the appropriate point. The 
extended price is one such item which was previously hand 
computed (See figure 3.10). 

Upen completicn of data e¢lement Entry, the analyst 
may elect +o change an iten, post the case or exit the 
cpening program and go back to the main ménu without posting 


the case. [ieesae Critical at this time in the entry 
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— _- P 7” ee 
’ 
| UL | 
UNIT ERICE EXTENDED PRICE 
18. Pol, CORREC 2tON COST <O 
| 19. WARRANTY - Y/N/U 
i Zon WORK UNIT CODE <O> ( 
{ Zales ACTICN/DISPOSITION ap ee ae <O> 
ee Deer A TES SORMD Ee SGCREPANCY - FIRST 2 { 
Pee reno treot EE DISCOVERY O38 DE | 
23A. ACTICN POINT | 
DEFECT VERIFICATION CODE - N/O/U/SY <a> 
| =_— Reoeenormorr batty = CS/N/SS/USX <C> | 
ORIGIN CODE | 
50; Wars -bOC 
Tere Die LCL ENC Y | 
| 
| l= POSE CASE { 
2 - CHANGE DATA { 
| Seaeos tt WETHOUT POSTING 
{| 
nn ee ce cee cere csr cr ne cD ED SE A ED CE ES SP SEE SP ES ES SS SE SED cee ce ee eee weal 
Figure 3.10 Second Screen of Data. 
process. If a major mistake had been detected, it would be 
best to re-initiate the entry of a particular case instead 


of using the update program to change each item. This gives 
the analyst a final foint where the process can s 
without any interacticn with the current casés. From the 
users point of view it is cemfcorting to know that an earlier 
mistake could be elininated prior to pesting. Orn a busy 
network, the posting process may take a few minutes, thus 
the analyst is re-assured that "all is well" by a screen 
giving a status report on the process (See figure 3.11). 
After successful assignment of a case number and 
posting to the database, the case number is displayed on the 
screen (See figure 3.12). After noting the case number on 
the SF 368 for any future reference as ne¢cded, the analyst 
can clear the screen Ly pressing any key, and then will be 
rack at the point where he may input another new QDR case or 
return tc tke main menu. 
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————— 

{| 
CASE BEING POSTED TO DATA BASE 
{ PLEASE STANDBY { 
| | 
{ KK DO NOT INTERRUPT aK AK OK | 
ia 


Figure 3.11 Response to POST Choice. 
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CASE NUMEER OF THE NEW CASE 
"4QO192A! 


Efeooeireenes 1O CONTINUE 


— 
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Figure 3.12 Feedback to Analyst. 


The above seguence gives a flavor of the screans and 
messages that are present in the QDR System. Foremcst 
consideéeraticn in design of screens and menus wés the ease of 
use by the analysts. The screen deSign in a pattern which 
matched the source document as much as possible while 
considering additional input requirements led to a clean, 
easy to understand representation. The error messages were 
Meee ted at 1d=ntifying a specific range of acceptable input 
values and presenting these to the analyst Bem h Sit 
review. Consistency of input parameters was maintained to 
enable tke user to react to prompts and choice points thus 
requiring a Minimum of additicnal thought and attenticn to 
the precess of data entry and interaction with the "CDR 
Machine" itself. 
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Ze Multi-User Envircnme 
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The QDR System uses GEASE II =o handle al 
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cf the system's oferations. This database on 
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Q 
product is designed fer a single user and does not previd 


(D 


the locking mechanisms necessary for a multi-user envircn- 
meni. To cvercome this deficiency, a Database Handler was 
created to control access tc the various database files. 
Access tc the Database is achieved by calling the Database 
Handler routine and providing it with a two character 
alpha-numeric type ccde which represents the type of the 
desired access (See figure 3.13). The Database Handler will 
€ither expect additional parameters or will provide inforta- 


tion depending on the selected access type. 


iMmecnae tN COuPeCrronrmemuccord locking or file writs 
functions, the Datatase Handler must First establish write 
access tc the database file that is being written <0. A 
Special "File Status" data file provides the mechanism to 
Getermine write access. As each us¢z process calls the 
Patabase Handler for file write transactions, the fils 
status is checked to see if the file is currently locked by 
anothér precéess. If the file is locked, the Database 
Handler enters into a test and wait loop unti the file is 
made availatle. When the file is uniocked, the Database 
Handler will then lock the required file by placing the User 


I.D. cf the operator into the file status file. There 


\~ 
(n 


a 


point of contention at the moment the file is released by a 


hg 


process. Each terminai on the network has its own cory of 
the Datatasé Handler and as such, when a file is unliccked, 
cther precesses will perform the same locking action. ie 
ensure chat a precess has obtained write access, a verifice- 
tion check is mad@ just prior to actually performing ths 
write cperation. If write access has been obtained, “he 
Tatakase Handler will perform the write and rele 
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Note 1: Open2 and Close2 de not have NSN Access and 
default te Case Number Access. 

Note z: Close¢1 and Close2 create new records from the 
Open File records being closed. 


: ! 
The first character of the Access Code represents «he | 
file keing accessed and the second charact¢r represencs | 
type of access desired. | 
{ 
First Character Database File Used | 
| 
1 OPEN1 | 
| 
2 OPEN2 | 
| 
3 Ces na { 
4 CLOSEZ 
| | 
| Second Character Database Action | 
| A Read - NSN Access (See note 1) | 
B Read - Case Number Access | 
| e Write - Unlock Record | 
| D Read/Lock - NSN Access | 
E Read/Lock - Case Access | 
| F New Record Creation (See note 2) | 
| 
G Reccrd Unlock | 
| H Read - Record Number Access | 
| a Skip/Read - Record Number Access | 
| | 
| 
| | 
| | 
| 
| | 
| 


Pagine 3.13 Database Handler Access Codes. 


file for cthers. Tf write access is not obtained, the test 
and wait loop is entered again. 

To perform awrite operation, the entire database 
file is lccked so that no one else can write *o it. When an 
individual record must be updated, it is undesirable to 
leave the Database file locked while the operator is making 


updates to the record. To prevent this, a record iocking 
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capability was added to the Database Handler. This is dons 
by including a timestamp data element in each data record. 
PeeeOor tc retrieving a record for update, the Database 
Handler checks to sée if the record has previously beéén 
locked. Any attempt to update a locked record will result 
in a code being returned tc the calling program/module (See 


The Data Ba 


se 4 
indicating the 


ardler will return a one digit Code 
Success/Failure of a Data Basé Access. 


———— 


{ 

| 

{ 

ee, 

Return Code Dea ata On | 

0 Tata Base Access Successful | 

1 Record Currently Locked | 

2-8 Unassigned (Available for 

future growth) | 

2 Record Not Found | 

| | 

a 

ee ee ES eS ee 
Figure 3. 14 Tata Base Handler Return Codes. 

Magure 3.14). AS with general write opérations, the data- 


base must be temporarily locked to allow the timestamp <o b3 
Merecen Cut <6 the file. This record locking mechanism 
allows multiple users to function without unintenticnally 


Svemwrrting anformaticn. 


oe 


a” 


ystem Security 


Fecause cr tke amount cf data held by the QDR Systen 
and the value of the informaticn to FMSO Code 91423, the CDR 
System reguired some degree of security. There are kasi- 
cally twe levels of security available for the systen. Th<¢ 
first level of security is the protection of the System 
Disks. - The Master Network Station is the gateway to the QDR 
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Frograms and Data Files. Ey keeping the master station 
cperating disks under lock and key, the system is net géner- 
ally accessible to unauthorized personnel. Access to these 
disks shculd be controlled by the system supervisor or his 
assistant supervisor. 

The second level of security involves a legon and 
password system inccrporated into the QDR Software. Bach 
authorized user is provided a unique user identification 
code which will allow him access to the system. In addition 
mere che required I.T. Code, a password is required to 
complete the logon precedure. The passwords may and should 
ke changed rericdically by the system supervisor to reduce 
the likelyhcod of unauthorized personnel bécoming familiar 
with the passwords. To utilize the QDR System, the user 
accesses the system as described in the section cn user 
interface. The usér is given three attempz~s to access the 
System. If all three access attempts fail, the system will 
display an "Illegal Access Attempt" message and will lockcut 
the terminal. The cnly way +O return a locked terminal to 
an operational mode is to "reboot" the affected terminal. 

Although this method of security is Simplistic, it 
is the methcd most suitable for a system of this nature. As 
the value cf the data held by the systém increases, the 
security precedures should be reviewed to ensure they are 
adequate. | 


4, Flexibility And Maintenance 


The fact that the QDR System could expect to undergo 
changes was considered in not only program development, 
but also inthe dataktase crganization. Plaxibili¢cy and 


MAaintainability of the entire system répresented develcp- 


ment okjectives int crder to support <he earlier 
discussed design gcals of modularity and. infcrmation 
hading@. 
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CBASE II with its command language and relational 
databas= provided a powerful vehicle to construct the 
programs and databases for the system. The Englaish-like 
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sense of code functicn over 
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Each hierarchical level can thus 


ZOLlOwang ihe indentation 


tO maintainability 


descriked ahove, Scre specific areas were identified for 
likely future changés. Internally generated chang? 
waS expected from assignment of different analysts, addi- 


tional or modified internal 
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the supervisor's main menu. The updating of COGS and Item 
Manager's information were also included. These Wers 
seen as routine housekeeping modifications which did not 


demand a programmer's attenticn. 


Tf demand for specific, repetitive gueries arises, 
the additicn of this capability by maintenance programmers 
is very easy. Currently each analys= is able to receive 2 
listing cf each of his currently open cases as a standard 
Mie—by ctcm his ™rerert menu". To add any additional 
query would require modification of only one prcegran 
module. 

As an example, Suppose that a commonly cccuring 


guery by all analysts was to receive a list of their ofen 
Gases from a particular CoG. The programmer would be able 
to provide this capability by adding only a few lines of 
code. The addition of a menu selection item would be 
accomplished by the fcllowing: 

aoe se MENU ADDITICN 


‘2 - List of assigned open cases for specific CCG ! 


see VALIDATING ENTRY 


Sone 1 TO BADCCG 
CO WHITE BADCOG 
oe SAY ‘Enter COG’ GET ANSWER 
Wissen Ds COGS 
FIND ANSWER 
iF 


= Q 
® mormcumeoay *GOG NOY FOUND, TRY AGAIN! 
Sone F TC eBADCCG 
ENO eee 
ENDCDO <BADCCG> 


kek NOW FIND THE OPEN CASES FOR THIS ANALYST 
***K* CHCICE OF MEDIUM WAS MADE IN ORIGINAL MENU 
USE D:OPEN1 ; 
DISELAY CASE, NSN NOMEN » $ (DATES, 11,5) FOR COG = ANSWER 
.AND. wHO = C:WHO 


This is but cne of the many methods that could be 


used tc provide the additional capability to the analysts. 


a 





meweteciatiom of che functions WeTH AN a single necdule 


combined with the pcwer of a relational databas¢ are 


ry) 


definite asset to the programmer in extending the use of 
the system to its users. 

While the cCcapabidaty to exztend the functions 
provided has beén built in, PhiemPGeecisiG@ne-o de so skould 
not be taken without consideration of the impact on the 


system as a whole. An extension such as ths one just 
described cculd be helpful and Mec Ue de~rinental cc the 
System cperation if properly ilmplemented. A choice would 


have to ke made; 


Jeeeesecem rect the uss of this option to 
low use periods. 

2. Implement it as a standard internal report, 
once a week fcr example 

3. Create an index file based on either COG cr 
analyst and keep these updated during normal 


processing. 
The sSuperviscr must be aware of the Lily of eoneemenrey ye 
these alternatives. What in the first view looks like a 


very easy and useful method of producing the listings, may 
potentially caus? system-wide problems. The two most Likely 
drawkacks wculd be slowing processing response time to an 


unacceptable level cr causing additional index files to 


teal precicus space on the system hard disk. The first 
cption would allow analysts to retain greatest flexi- 
Peel ty, hewever it would be difficult to implement and 
@enercil. The internal indexing of the databases for 
normal precessing includes neither COGSener ae 

For this reason a request as outlined above ae 
require a séquential search of the OPEN1 database. A 
process that could take ur to 30 tinutes, not likely a 


Satisfactory sclution! 
The second option has the advantage Of  ‘beeng 


easy to ccntrol, kas no impact on day to day processing 
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or stcrage and meets the reguirement Bom OLOVviads é 
list to each analyst. Analyst flexibility would be 
compremised and th¢e required periodicity would have to b¢ 
determined. 

Choice number three would allow the lists to be 
generated upon demand. The major drawback would be the 
additicn cf an additional index that would hav2 to be 
updated at each cas@ création, updat and closing. 
This would add overail processing requirements and thus slow 
down the complete system. MagitLonally, the index would 
require space on the hard disk, a critical rescurce. 


The proper Cho 1Ce LOL the Supervisor and 
programmér combinaticn would balance the users needs 
and the system realities. Although the above example 
shows a Simple, easy extension it points out the neces- 


sary considerations which must be included in all deci- 


sions. The micro ccmputer system, aS well as the mainframe 
computer does have aprlicetion limits. In the QDR System 
all current requirements have been met, and while 
designed fcr ease cf maintenance and extendability, the 


latter should be implemented with discretion and caution. 


B. HARDWARE 


The CDR System is a combined software and hardware suite 
which performs management information and database manage- 
ment functicns. The hardware select2d for the system was 
comprised cf multiple microcomputers, secondary stcrage 
devices, printers, mcnitors, keyboards, and network hardware 
with ccntrolling software. The selection of the supporting 
hardware is vital tc the operation of the central database 
system because it prevides the mechanism for sharing the 
datakase files and operating programs. To meet the demands 


of the netwerk operation, the hardware must be compatible 





and allow the equipment to be integrated into a complete 


SyStem. 
1, Selected Hardware 


The micrccomputer selected for the QDR System was 
the IEBM-Personal Computer (PC). This provided expandability 
and supperted both networking and relatively large hard disk 
storace devices. At the Naval Postgraduate School prototype 
site, the network was composed of four PC's. Each PC was 
equipped with a keyboard, Ao LOL MEM Onl cOl mand color 
controller board which allowed the experimentaticn with 
color interfaces for users. All of the PC's contained two 
double-sided double-density 320 KByte floppy disk units with 
contrcllers and network ccntroller boards ZOE OLE Hl a 
Technology's PCnet. Two of the rour PC's had 128 KBytes of 
randcm access memory (RAM) while the other two had 320 
KBytes of RAM. The 320 KB systéms were also ¢quipped with 
AST Research's MegaFlus board which provided 64 KB of the 
BoP KE RAM, a clockycalendar, &4 serial input/output (1/0) 
port, anda parallel I/O port. These I/O ports allcwed the 
connecticn cf either printers or modems. TwO printers were 
connected tc the network (cne to each of the PCS with I/O 
Eents). tiomometeeo bee movidedslet cer quality outpuz through 
its daisy wheel print, while the other provided the capa- 
Peeeety Cr pPranting text and drawing graphs through its dot 
feed X PLint. 

The personal computers with the additional memory 
and I/O capabilities were also outfitted with interface 
cards for Tallgrass Technolcgy's 20 MByte Hard Disk Stctrage 
Opats. These disk units provided up to four logical disk 
drives and contained built-in tape backup units which 
allowed Saving archival information. 
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The integration of the hardware was largely 
completed by the equipment manufacturers. Treweon. £Clier 
koards for both the network and the hard disk intsrfaces 
were specifically designed to become an integral part of the 
IBM-PC. The software that controlled both th2 hard disk and 
the network were created to work in conjunction with the 
PC-DOS operating system and with each other. The importance 
cf this interface tetween the manuracturers becare very 
apparent as system integration testing began. The 1 naeera) 
versions of the network and hard disk software were not 
completely compatible. As a result, the system was prone to 
locking up during opéeraticns that involved large amounts of 
disk accessing. The respective companies worked together to 
solve the lcckup proklems and mad@ available the corrected 
versions. Once the corrected versions were installed, the 
lockup problem appeared to be alleviated and cléearéd the 


path for the creation of the Central Database System. 


3. Hardware Limitations 


A limitation of the selected hardware suite is thea 
inability fcr a shared PC to access files located on anctker 
Shared Pc. This méans that the shared PCS are limited in 
their ability +o access the totai database. During «he 
early design phases, this was not considered a problem 
rkecaus¢ each record cnly required 275 byt¢s cf informaticn. 
Assuming a combined lcad of 30,000 records in the Open and 
Closed Détatase Files, the system reguired less than 9 M¢ga 
Bytes of stcrage. Under the revised QDR processing réquire- 
ments, the same load cf 30,000 records required over 18 MB 
of storage. The 18 ME requirement does not inciude overhead 
for programs, support files, ¢r indices required by the QDR 
System. This meant that the Open and Closed Database Files 
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needed tc be split across twe hard disk units. Stee a= 
user FCs can have access to multiple shared devices, this 
limitaticn cnly restricts the use of the shared PCs. By 
utilizing the shared PCs as network controllers only, the 
databases can be split across the network and accessed by 


all users. 


GC. TESTING 


Tésting was ccnducted throughout the development 
pericd of the QDR System. The testing approach us¢d was 
to progress from urit testing of one module to integra- 
tion cf tested modules. Validation of these modules against 
design criteria was followed by system testing using the 
complete software and hardware package. [(Ref. 4] 


faunat Testing 


Unit testing cf modules represented the first level 
emectesting. Once the program modules were coded and had 
been cleansed of any syntactical ailments, they were indi- 
vidually tested. Both testing harnesses and prcgran 
stubs were used at different stages of program development. 
The top down design had identified those key modules needed 
Gon Suppecrt the miler 1 On of the system. The ie Se 
modules coded and tested were thus the Database Handler 
(XDBHNDLR) and the Cpen Case Module (XOPEN2). Testing 
XDBHNDLR reguired development oof a harness in crder to 
input ¢?xpected parameters and make available specific data 
to the mcedule. The emphasis of this modul¢ was «zwo-fold. 
First it was expected to be the pregram's interface with 
the case databases, and as such had to properly read and 
write specific files according to the "type code" presented 
toned t . The second ccncern waS contention. Stepwise 
testing cf the module was conducted. A «esting harness 
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with a sample data set was used to exercise the Darzabeaess 
Handler until it performed properly. The second testing 
stage was to use multiple inputs over the network to 
isolate any contention problems and eliminéts eal 

Concurrently the Open Case module wés undergoing parellel 


testing using the datakase directly. 
2. Integration and System Testing 


Integration testing waS then conducted to Ering 
together the XDBHNDI5B and XOPEN2 modules. The purpose of 
this stage was to ensure the interface between the 
modules was in accordance with design. Once these programs 
were in this stage, the same sé€quence was utilized to test 
the other main modules, and bring them up to the integrated 
level. 

By late October the main processing modules were 
integrated and the limited system was operating satisfacto- 
rly . The system re-design and development discussed 
earlier caused testing to begin anew. At that time the 
operating system version was changed from PC DOS 1.1 t0 
fomyOsS 2.0. The network and hard disk software were 
also upgraded. 

Limited time for ccecmpletion of system development 
and coding resulted in only partial system testing by mid 
January cn the NPS frototyfe systen. During demonstration 
at the F¥SO site, the QDR system operated properly as a 
Single user system but net With multiple Simultaneous 
transacticns over the network. The cause was not deter- 
mined az that time. Orchid Technology and Tallgrass were 
Gomedeced tO discuss the difficuities, resulting in an 
updated release of beth software packages being sént to NES. 

limited system testing on the NPS network indi- 
cated that the problem had been corrected. Subsequent 


cperation cf the QDR system by personnel at FMSO (with the 
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upgraded software) waS not successful. Multiuser system 
SoeeevececOuld not be duplicated at NPS. Reasons for the 


network failure at FMSO have not been identified. 


3. kesponse Times 


Multiple users and large databases affect response 
time cn micro computer systems to a large degree. Figure 
3.15 shows the time required fer specific operations with 
different system loads. Where depicted, multiple users 


are perfcrming the exact same crerations simultaneously. 


ea ea <<. 
SIZE 100 reds 69000 rcecds 
Users 1 Z Ss 1 2 eS 
OPERATION 
1. Pest Case: 220 aS 275 59 Lae Jee se 3G 


| 
| 
| 
' 
| 
| 
ze Case Update | 
| 
| 


NS oe OE eS ee ee ee, ee 


1st Screen ai6 laze 1258 7 ao oS. Maco 
2d screen st? om, | 1S 12 724 2500 120i 
3. Case Closing 1:28 BepZone 2 24 lea e HOW) sore ce 
Times shown as minutes: seconds. Where time represents 
Multiple users, the time shown is completion time fcr | 
all users | 
a | 
a a re a a ag ci ee ee i aes eit ieee ee eae arsenate amr oe cep elie air 
Baguress. 15 Response Times. 


These times give an idea of the different resronse 
the user can expect wit the loadings as indicated. The 
difference in times used by adding a second user is not 
saga. filcant. However, if numérous analysts were conducting 
cpérations at the same time then the times could increase to 


a level where input operations would be significantly 
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delayed. The differential in response times for added usérs 
reflects twe items. The first is the contention induced for 
packet access to the network, which represents the main 
Porticn cf the delay time. The second is a delay dus to 
internal checking in xXDBHNDLR to allow only one of the 
asynchronous processes access to the database. Time differ- 
ences between the cperations reflect the amount of data 
which has to be stcred intc the database as well as the 
number cf different databases which must be accessed to 
complete the operaticn (2 fer posting a case, 4 for clic 


a casé). 
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A prcetotype system is designed to provide an interface 
for users and acquaint them with the potential value cf an 
automated operation. It allows the user to see how the 
final system will present and accept data and provides the 
cpporttnity to modify the interface before final system 
implementation. Prototyping allows the rapid develcpment of 
a system but generally dces net contain all of the capabili- 
ties of an operational system. 

The QDR System, although a prototype, was designed with 
capabilities beyond normal prototyping. Iz provides not 
cnly user interface capabilities, but also full database 
Management capabilities. The additional features were added 
to allcw the QDR Syster to be placed in an operational envi- 
ronment to re tested and to aguaint the user with automated 
Sye-ce%s and their operations. To provide functionality, the 
system was designed for multiple users to access the data- 
kase files. This méant that the system allowed for record 
locking, multiple read/write operations, and security access 


to the systen. 


A. CONCIUSIONS 


The design and implementation of an automated Quality 
Deficiency Reporting System prototype has been described in 
this study. A working protctype has been established and is 
available fer future evaluation. Conciusions drawn ‘from 


this develcrment include: 


ie The prototype software design meets current CDR 
processing requirements and includes PDREP derived data 


elements identified fer future inclusion in the QDR Systen. 
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Ce There are twWo main operating limitations with the 
current system; speed of processing with multiple users and 


limited system capacity to meet increased QDR requirements. 


3. The NPS prototype system demonstrated the feasibility of 
accomplishing QDR processing on a microcomputer tased 


system. 


4, If new software and hardware become available to alleév- 
late network and datakase limitations, the prototype cculd 


tke modified to provide an operational systen. 


Be. RECOMMENDATIONS 


Ue Continue develorrent of @ microcomputer based system to 


provide automation of the QDR workflow. 


Ze Consider migration toa minicomputer or mainframe 
computer using the basic protctype design, in order to allow 
for faster response time and growth potential. 

The recommendations above provide for the user te béeccme 
familiar with the autcmation capabilities that cén be inmple- 
mented in the QDR precessing environment. Nagase Ona 1d yeaa 
cpens up the channels for user feedback to system designers 
that are working on future versions of QDR support systems. 
The initial design considerations that went into creating 
the prototype system are valid for mini/mainframe computer 
implementation. The data dictionary used, the menus and 
interface screens, and the Security considerations will 
remain valid in both the microcomputer and mini/mainirane 
computer environments. The us of a higher level lanaquege 
in the protctype system provides the potential to directly 
convert the algorithms to a naw system. 

P= Oe oraectical tO CONntinue Utilizing the micro- 


computer network, the size of the database could be expanded 
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by the use of 35 ME hard disk units, thus approxinazely 
doubling the system capacity. Additional speed for the 
microcomputer network could possibly ke achieved by 
converting the file end record locking/unlocking operations 
into assembly or machine language routines (although this is 
not recommended because of future maintenance headaches). 
Another avenue to explore is the acquisition of a multi-user 
versicn cf dBase II that was recently announced. This would 
Beem che Elimination of file iccking and control currertly 
accomplished by the (CDR System software, and with a small 
amount cf repregramfing the XDBHNDLR program could be 
eliminated. 

The prototype QDR System frovided a starting point for 
PUcure growth in the QDR processing environment. The 
groundwork that has teen laid can be utilized for either a 
Semeimuation in the w#icrocecmputer reaim or can be utilized 


with larger computers. 
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APPENDIX A 
GLOEAL MEMORY DEFINITIONS 


There are various types cf memory variables utilized by 
the QDR System. These variables are divided into Glcbal and 
Local Variatles. Gickal Variables are used to transfer data 
between programs and modules and are designated by either M: 
on Lecal Variakles are utilized for internal control 
within programs. These variables are identified Diy Ul sO a 
Plbeerere, H: fOr XDBHNDLR, Os: £or XOPEN2, etc. 

The variables listed below are the Global Variables 
utilized by the CDR System. They are presented as: 


Variable Name Using Modules 


Description Of Variable 


C: JULIAN (CLOS REC, LOGON, MENU1, XDBHNDLR 
XOPEN2, XUPDAT, XXBISTAT, XXMNSfaT) 

MEMORY VARIABLE WHICH HOLDS TODAYS JULIAN DATE. THIS DATE 

IS GENERATED BY ACCESSING THE SYSTEM CALANDER AND CONVERTING 

TO A JULIAN DATE. 

C:WHO (CLOSREC, COGCNT, C-REASGN, DBEPACK, 
LOGON, MENU1, OCASERPT, OUERY, 
RPTMENU, STATGEN, SUPMENU1, SUPRETS 
SUPRPT2, UTILMENO, UTILNDX, XDBHNDLR, 
XOPEN2, XUPDAT, XXBISTAT, XXMNSTAT) 

MEMORY VARIABLE THAT HOLD THE LOGON IDENTIFICATION OF THE 

ANALYST. THIS IS CAPIURED DURING THE LOGON EROCESS. 

M:ACTDISE (XDBHNDLR, XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH IDENTIFIES THE ACTION/DISPOSITION 

INSTRUCTIONS. ORIGINALLY CAPTURED FROM BLOCK 21 OF THE 

SF 368. 

MSACTET (XDBHNDLR, XOPEN2, XUPDAT) 


MEMORY VARIABLE WHICH IDENTIFIES THE ACTION POINT. 
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Me ACTIKN 

MEMORY VARIABLE WHICH 
LY CAPTURED FROM BLOCK 
MsCASE 


(XDBHNDLR, XUPDAT) 

IDENTIFIES THE ACTION CODE. ORIGINAL- 
21 OF THE SF 368. 

(CLOS REC, C-REASGN, XDBHNDLR, XOPEN2, 


XUPD AT) 


fo kyY VERTABLE USED TO CAPTURE THE NUMBER OF THE QDR CASE. 


M3sCAT (C-REASGN, XDBHNDLR, XOPEN2, XUPDAT) 
Peeeeeey VARTABLE WHICH HOLDS THE CLASS OF THE QDR CASE. 

Meo TAY BE EXZTHER CATEGORY 1 (HIGH PRIORITY) OR CATEGCRY 2 
(NORMAL FRIORITY). ORlG@re er iy CAPEURED FROM THE SF 368 OR 
CDR MESSAGE. 

een uskc (XDBHNDLR, XOPEN2, XUPDAT) 


Moe ys VARTABLE WHICH IDENTIFIES THE CAUSE CODE. 


pmeecOst (XDBHNDLR, XOPEN2, XUPDAT) 

Severe VARLABLE WHICH IDENTIFIES THE ESTIMATED CORRECTICN 

Sere ORFLGINALLY CAFTURED FROM ELOCK 18 OF SF 368. 

Hiei SE (CEOS REC RACE ENZ, XUPDAT) 

Peiomxr VARIABLE WHICH HOLDS THE DATE THE CASE WAS CLCSED. 

Meepoi NALLY ENTERED UECN CLOSING THE CASE. 

fe COG (Gaya soNGeADOHNDLR, XOPENZ, XUPDAT, 
hem leg dye) 

Mme VaR ABLE WHICH HOLDS THE COGNIZANCE SYMBOL FOR THE 

ASSOCIATED NSN. ORIGINALLY CAPTURED FROM BLOCK 5 OF THE 

Sao OO. 

fe coo tC (XDBHNDLE, XUPDAT) 

Peon vARLABLE WHECH IDENTIritS THE COST CODE. 

ie CR (CLOSREC, XDBHNDLR, XUPDAT) 

Sepeee. VAREPELE WHICH IDENTIFIES THE CREDIT CODE. 

BDL S (ere oneeCymertbAscGN, XDBHNDLR, XOPEN2, 
XUPDAT, XXBISTAT, XXMNSTAT) 

MEMORY VARIABLE WHICH HOLDS THE CONCATINATION OF THE MAJOR 

Pees ss SsOCtAbal) WITH THE QDR SYSTEM. 
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M:DEF (XDBHNDLR, XOPEN2, XUPDAT) 
MEMORY VARIABLE WHICH IDENTIFIES THE TYPE DEFFCT CODE. 


NeDEF (XDBHNDLR, XOPEN2, XUPDAT) 
Memeeny VARTABLE WHICH HOLDS THE DEFECT RESPONSIBILITY CCDE. 


M:DEFV (XDBHNDLR, XOPEN2, XUPDAT) 
MEMORY VARIABLE WHICH HOLDS THE DEFECT VERIFICATION CODE. 


M:DETAILS (XDBHNDLR, XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH IDENTIFIES THE DETAILS OF THE CDR. 
ORIGINALLY CAPTURED FROM BLCCK 22 OF THE SF 368. 

M:DIS (XDBHNDLR, XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH IDENTIFIES THE DISCOVERY CODE. 
CRIGINALLY CAPTURED FROM BLOCK 22 OF THE SF 368. 

M:DITEM (XDBHNDLR, XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH CONCATENATES MODEL, SFRIAL NUMBER OF 
DEFICIENT PART, NEXT HIGHER ASSEMBLY, AND SUB ASSEMBLY. 
ORIGINALLY CAPTURED FROM BLOCK 16 OF’ SF 368. 

M: DOC (XDBHNDLR, XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH HOLDS THE TYPE DOCUMENT. ORIGINALLY 
CAPTURED FRCM BLOCK 230 OF THE SF 368. 

M: DOCNO (XDBHNDLR, XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH HOLDS THE DOCUMENT NUMBER. ORIGINALLY 
CAPTURED FROM BLOCK 10 OF THE SF 368. 

M:EPRC (XDBHNDLR, XOPEN2, XUPDAT) 

M@=MORY VARIABLE WHICH HOLDS THE EXTENDED PRICE OF THE 
DEFICIENT MATERIAL. THE EXTENDED PRICE IS CALCULATED BY 
MULTIPLYING THE QUANTITY DEFICIENT BY THE UNIT PRICE. 
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M: FSCM (XDBHNDLR, XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH HOLDS THE FEDERAL SUPPLY CODE OF 
MANFACTURER. ORIGINALLY CAPTURED FROM BLOCK 7 OF THE 

SF 368. 

M:GOV (XDBHNDLR, XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH IDENTIFIES GOVERNMZNT FURNISHED 
MATERIAL. CRIGINALLY CAPTURED FROM BLOCK 14 OF THE SF 368. 
MiITEM (XDBHNDLR, XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH IDENTIFIES THAT THE ITEM IS NEW OF A 
REPAIR/OVERHAUL ITEM. ORIGINALLY CAPTURED FROM BLOCK 11 CF 
THE SF 368. 

M:KEY (CLOS REC, C-REASGN, XDBHNDLR, XOPEN2Z) 
MEMORY VARIABLE WHICH CONTAINS THE DATABASE ACCESS KEY. 
M:LDATE (CLOS REC, XOPEN2) 

MEMORY VARIABLE WHICH HOLDS THE DATE THE CASE WAS TRANSMIT- 
TeD TO TEE ITEM MANAGER. ORIGINALLY ENTERED UPON TRANS- 
MISSION OF THE CASE. 

M:LOT (XDBHNDLR, XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH IDENTIFIES THE MANUFACTURERS LOT 
NUMBER. ORIGINALLY CAPTURED FROM BLOCK 16B(3) OF SF 368. 
M:MFG (XDBHNDLR, XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH IDENTIFIES THE MANUFACTURERS PART 
NUMBER. ORIGINALLY CAPTURED FROM BLOCK 168(3) OF SF 368. 
M: NOMEN (XDBHNDLR, XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH HOLDS THE NOMENCLATURE OF THE MATERIAL 
BEING REFORTED IN THE ODR. ORIGINALLY CAPTURED FROM BLOCK 6 
OF TEE SF 368. 

M:NSN (C-REASGN, XDBHNDLR, XOPEN2, XUPDAT) 
MEMORY VARIABLE WHICH IDENTIFIES THE NATIONAL STOCK NUMEER. 
ORIGINALLY CAPTURED FROM BLCCK 5 OF SF 368. 
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M: NUM (XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH IDENTIFIES THE CONTRACT NUMBER UNDER 
WHICH TEE REPORTED MATERIAL WAS RECEIVED. ORIGINALLY 
CAPTURED FROM BLOCK 10 OF THE SF 368. 

M2090 (XDBHNDLR, XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH IDENTIFIFS THE GSA REGION CODE 

FOR 90 ITEMS. 

M:OPEN (CLOSREC, XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH HOLDS THE DATE THE CASE WAS OPENED. 
ORIGINALLY ENTERED BY THE SYSTEM UPON NEW CASE INPUT. 
M:ORG (XDBHNDLR, XOPEN2, XUPDAT) 


MemORY VARIABLE WHICH HOLDS THE ORIGIN CODE. 


neo lr (XDBHNDLR, XOPEN2, XUPDAT) 

Memory VARIABLE WHICH IDENTIFIES THE OPERATING TIME AT 
BemeoURE., ORIGINALLY CAPTURED FROM BLOCK 13 OF THE SF 368. 
Reo VER (XDBHNDLR, XOPEN2Z, XUPDAT) 

Peery’ VARIABLE WHICH IDENTIrikt&S THE DATE OF MANUFACTURE/ 
Meena aaAuL. ORIGINALLY CAPTURED FROM BLOCK 12 OF THE SF 368. 
Peer YCEr (XDBHNDLR, XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH HOLDS THE QUANTITY OF MATERIAL 

Peo RIED AS DEFICIENT. ORIGINALLY CAPTURED FROM BLOCK 

wee Or TRE SF 368. 

maOLYINS (XDBHNDLR, XOPEN2Z, XUPDAT) 

Peon s VARIABLE WHICH HOLDS THE QUANTITY OF MATERIAL 
Pere lr DEY THE REPORTING ACTIVITY. ORIGINALLY CAPTURED 
meet ELCCK 158 OF THE SF 368. 

MeOTYREC (XDBHNDLR, XOPEN2, XUPDAT) 

MEMORY VARIABLE WHICH HOLDS THE QUANTITY OF MATERIAL 

Peel VED PY THe REPORTING ACTIVITY. ORIGINALLY CAPTURED 
foe SLOCK “W5A OF THE SF 368. 
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Ms QTYSTK (XDBHNDLR, XOPEN2, XUPDAT) 


memory VEPRDTABLE WHICH HOLDS THE QUANTITY OF MATERIAL IN 
Penn te tie REPORTING ACTIVITY WHEN THE QDR WAS SUBATTILED. 
ORIGINALLY CAPTURED FROM BLOCK 15D OF THE SF 368. 

M2 RDATE (CLOSES, KORPENZ, XUPDAT) 

MEMORY VARIABLE WHICH HOLDS THE DATE RECEIVED FROM ORIGIN. 
et Pee tUreoerrOMm THE MALE ROOM TIMESTAMP ON RECEIPT 
AT 


MeREC1 (CLOS REC, XDBHNDLR, XOPEN2) 

meen, VARIABLE WHICH IDENTIFIES THE RECORD NUMBER OF Tdz 
meee BEING PROCESSED. THIS 15 A SYSTEM GENERATED 
VARIAELE. 

ano OFEN (CLOSREC, XOPEN2, XUPDAT) 

Pees VARTABLE WHICH HOLDS THE DATE A CLOSED CASE [5S 
Pee Pe NED. ORIGINALLY ENTERED UPON REOPENING A CLOSED CASE. 
fen o &CON (XDBHNDLR, XOPEN2, XUPDAT) 


MEMORY VARIABLE WHICH HOLDS THE REPORT CONTROL NUMBER. 
MeeGaiwALLY CAPTURED FROM BLOCK 3 OF THE SF 368. 


teat LY (XDBHNDLEA, XUPDAT) 

Semeur VARIABLE WHICH IDENTIFIES THE REPLY RECEIVED FROMW 
Meee ich MANAGER. ORIGINALLY CAPTURED FROM BLOCK 32 OF 
mie or 368. 

Men 1 C (XDBHNDLE, XUPDAT) 


MEMORY VARIABLE WHICH IDENTIFIES THe RETURN CODE OF THE QUCR. 


M:RIMDATE (CLOS REC, XUPDAT) 

MEMORY VARIABLE WHICH HOLDS THE DATE RETURNED FROM THE ITEM 
MANAGER. ORIGINALLY ENTERED UEON RECEIPT OF A RESPONSE 
FROM THE ITEM MANAGER. 

M:SCR (XDBHNDLE, XUPDAT) 


Pemeo mY VARTABLE WHICH LDENTIFIES THE SCREENING CODE. 
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Moe Ch T YX ove, XLUPDAT ) 

BemOsY VARLABLE welCh fvenTifitS ifkb SCREENING QUALTIIC. 

Ke ys (OeberyNOier, AUEENZ, XAUEDAT) 

Meer VERTEPLE WHICE IDENTIFIES THE sUPrPLY NANAGEXNELT 

af Seleeee Chom Omen etURSD FROM BLOCK 5 CF THE 

ost é. 

Perse lt St Cee yore, AUPE AT ) 

Meme VPRTEPLE BCHICE IDENTIFIES THE STATUS CODr. 

feo le FE GsecOn, SUEEhOLA, XOrEN 2) 

Meee VERIASLE &HYLCH ECLDS THE TIMESTAMP. TEIS I5 A 

Peewee VERTABLE USED TO LOCK INCIVIDUAL RECORDS. 

fee rrr Pebereeee Con eNoan, ALSHNDLE, XCEENZ, 
XUPD AT) 

Meer cL PELE whiCE HOLOS TRE COD= SPECIFYING THE DATABASE 

meet k ACCESS CCDL. 

ee UL : (XP eee, Oe ENZ, AUPDAT) 

Mev ERI PELE wHICk &0L0OS Tez USIT OF E5SUE FOR THE 

Mmeeewoc ltt: MATERIAL. Geet Chere onto ERO THE AL<h 

meee ON TEE NSN BEITAC REPORTET. 

fm ULC Corsa Npos sc ren2, XUPDAT) 

Meee Te RL ABLE wHICR ROLDS TEE UNIT L[VENTIFICATICN COLE CF 

Sepeeee Pe UERETT ING TRE Clx. ORIGINALLY CAPTURED FOL 

meee 1A CF THe SF 3€6&. 

Pee FC PrOeG Pol re Xe PSi2, *UED AT) 

DEE Sc eno iCr HOLDS TEE UNETT Paics FCR THE REECETED 

Meee Gl habit CAriJ aft FROUN TRS KML<-N cAS il CN TEE 

Seetee ct ONS XN. 

Pay LC (Cu@ meno, ate Ola, AUPDAT) 

Me@eeer ce hbo An iCe ITUENTIFIES fee VENDOR LIABILITY CODE. 





M: WHO (C-REAoGN, ADEHNDLR) 


[ey VARIABLE WHICH IDENTIFPIE&S THE INDIVIDUAL CREATING 
MeenecOnRD. Pols 15 A SYSTEM VARIABLE WHICH IS CAPTURED 
fom TRE SYSTEM LOGON. 

MoWNTY (XOPEN2, XUPDAT, XDBHNDLR) 

MEMORY VARIABLE WHICH IDENTIFIES THE WARRANTY STATUS OF THE 
femmes  ORTLGINALLY CAETURED FROM BLOCK 19 OF SF 368. 

M:WUC (XDBHNDLR, XOPEN2, XUPDAT) 


BeemoORY VART ABLE WHICH IDENTIFIES THE WORK UNIT CODE. 
Breeoi NALLY CAPTURED FROM BLOCK 20 OF THE SF 368. 
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QDR LATABASE FILE STRUCTURES 


- DBF 


C:OPEN1 


Serquerunt FOR FILE 


NAME TYPE WIDTH Ee 


FLD 


NN 
OO 
mO 


PK NM HOW NWONANM & tONW PIR OKNNANC NC Two 
OOrOrODoOooOeoroQooor as - Or. Or Oa] Oo 
OOoOOdODd odo vcOOoo oo OOOO QGoWOWOO@e oe 


OUYWOVUIUYUOUASAAOUVOIYIUVUVOYUUIGOYUOIUOGIG 


(24 z, oo 

a fx OnMmo Hie 

fx fx AVUU =O Shy wo 
NUOBHSUO HRGMMUULUHHAOSOS ~@ OfUbHAG 
CONBEORAHOUMGOOSWNHMDGOBOAWHU U 
VUUZUAD DOD AOARAMUHESUNNOArY aU) 


MmAMOATWIOM DHNOTAMANOPDOHnODT™ANMA?MNOrFE 
DDODOVDVVODVVO STC TCT KTOTTANNANANANANAN 
DODODDODIODODOADODOODOOVODOoOVOOo000 © 


EGEES 


00219 


ee TOTAL ** 


~UEE 


DsOPEN 2 


SepuerukE FOR FILE: 


WIDTH 


NAME aoe 


FLD 


002 


MO ODO TENN KH TNNKEHN 
COQOOQOOQOOOOOOE Ol) Googe 
DBDODDVDOO VCDOOODOOODO0O0O 


YA AAOUIYIOYOYUUAUYUYU 


WONG 

, Fri = EH 

ROH OW) > Ost AR) PIN 
U4 mm fy fa aS SOHOHUN 
THAIS HOHTOHORDEH 
UDOOIMAHOOURZAURZENA 


MmAMNAMOEM ODHOTANMAMOMP 
OQooodoooeeS=_-_ S 
CQOOOOOO@Oe@OQQOOQC ae 
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OQOMNEA & & O°? 
NANDOVODOOOTO 
f= ODOOOCOS 


VUIVIVUIUVYVIUYYU 


wn W Ay 
mw @ MU H 
H>icUIDhl 
RTE OQ 
F4NiEH Wet D E41 E4105 4 
MnO ORenthiVlnO 
AMON U 1440234 


DHNOFAM AMO” 
m= MmANNNANAAN 
ODDDIOWODOOODO 


BYTES 


J03 86 


2osai ** 


35 


Der 


1 


* 
— 


DECLOS 


~- 
— 


UCTU R= 


ix 
t-1 
Y" 


fx) 


fx 


TT 


NAME 


FLD 


NN 


COO 


-ANM & OVONODNMN & FON Ph HNN N& Ko 
OOr OF OOOO SOM 3-0 ~O- OO COO oO 


VYOVUUGYGUYAALIIYVOUVUVUYUUYUUYIIUVYUOUe 


fxs wns p 

wae fx) Ona £-1€4 

{x fr AUYW Ahi e3 fa ,OQ 
OOAZAHA HMMMOOUVUEMOBROBR OM Ol VUEING 


TOW GEO MIA EY HI O O OHH Din OU OVI HOU 
YUMAUSDDODIMNOAAAMmMEHEAUWNNOR> ay) 


TmAM FINO DONOCANM AMNOY~DHNOE NM Ainr.90r 
DODODVOOVOVO CCT SCLC CRT EANNANNAANANACIN 
DODODODIODODOOVYDVOODIVDODOOVDIOIOIOOVDOVDOVDODVDIOONOYO 


nS 


—_ 
= 
ju 


00219 


- DBF 


EVeLOgE 2 


fr) 


wWiIDTd 


fey 


tr4 


NAHE 


MOO DO Pe RINDI — 
DQDVDOODVDOVOOVO 
DOIOOOVONDNDIVDONSD 


Qe BUYIOYUVIYOIY 


IONS 

wr FA 
PIM Ob Mm sam fa 
OC) 4 4 fot Py fg Pe fe fy b> 
NEE tia let-i bE Or 
UIIOOMA AHO O WE 


MmINYH TMOor Doon 
ODdOO00009 fe 
ODD OOOOO00O0O” 


2 





002 


FINES MH AQQOMN SCN & &— Kodo 
DMNKODONNANDOOOOOr OS 
O@OQooOe §|-OO90009000 


OQOUSUUVUYGYOUVGIOIIIOY 


NON TNOPM DNHNOEKAM FN\OME 
EE OAICQIQQgqannnaq 
DODD ODOVOOOOVOODOOO 


VOS36 925 Tis 


BOotAL ** 


HK 


et 


C:COG 


SUS TURE FCR FILE: 


WIDTH 


NAME eer 


FLD 


OM = 
OO® 
OOo 


OU 


lA 
OOO 


Seas 2 


000 14 


Pee lOTAL ** 


eee ecuecOprL.s yor 


elie 


Snuciuns fC R 


TYPE WIDTH WeEC 


NAME 


FLD 


Osa Oe Ss ja => = 
NOQOODOOOCOS 
OOoOOO0 00900 


OUYQURAASZA 


= HA Jed et 4A. 


mNM aF?WNMWwr Wor 
DDOO0DO00 000 
QDOODODOO000O0 


Bie S 


000 54 


moral ** 


EK 


- Dia E 


POOR So 


E 


Seer une ECH FILE 


DEC 


WIDTH 


IYPE 


NAME 


h- DOOMNOONMNS 


OrasasreNNOOO 
DMODOODODVDOOO0O 
UOVUOYUOUVUYUUG 
N 
AA 
Zan FH 
Metog fF WF & 
MEI DAHA 
HSS ombatnD 
F2HOVUHRMHAHO 


HEOURMONNO 


MmAMANOL ONO 
DODO OOODOGe 
DOODOOOOOO 


a3 





Se hOvAL #* OUmey 2 NEYTES 


Sew ehune Fereribe:s OGsWheERDIS .DBF 


FLD NAME TYPE WIDTH DEC 
001 CCDE C 002 

002 TEXT C 020 

+> TOTAL ** 00023 BYTES 


Svewuat er ener tLe s DsriLeSTAT. DBF 


EE NAME tie WIDTH DEC 
001 OFEN1 C O04 

002 OPEN 2 e 004 

003 Cres £1 C O04 

004 CGIOSEZ € 004 

** TCTAL ** O00 Tiaeey LES 


SaeuCTURE Deh FILE > Mio KSTAT.DBF 


Pi NAME 1 Yee WIDTH Dee 
001 Yar c QO4 

002 TOTALS N 0905 

003 LASe = OOD 

“ LOLAL ** 00015 BYTES 
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APPENDIX C 
DATA ELEMENT DEFINITIONS 


Mee LrOvides a list of the Data Element pictures tha* are 
used in various QDR programs The column labeled "Data 
Flement" ccntains a shcrt description of ths actual Element 
that the Variable represents. PoecOnUNnee 2D Contains the 
variakle name associated with the Data Element. | The ID is 
further defined in Appendix A. Bhep 'iyec’ 2S cither char- 
weer "C8 CT. humeric mn", with a length as shown. The 
"Picture" shows the size and character type of each Data 
Flement. Standard representations are used: 


‘xe —- Alpnawietic 
ae ute r.c, 0-9 
oo we LleanenenuMmerlLcC Or alphabetic 


Ir 
jew 
ict 
jp 
Tes! 
it 
ID 
Ia 
iD 
(3 
(ct 
14 
Iw 


Picture Type 


tr 
O 
O 
=< 
O 
O 
O 
He 


Case Number 
Cognizance 
Category 
Nomenclature 
EEC 
Unit cf issue 
Unit Frice 
Quantity Def. 
Quantity Insp. 
ae Recva 
ie COC K 
ended Price 
mci 
Deficiency Ver 
LTeficiency Resp 
Type Document 


het 
<= 
> Ps 
Ps 


rd a ty 
AOMNHY 
= 2 HOODOO UOY pr, 


@~=DWOWWOWOWO Pe 


Ms ONWHOO 
MWOWOODODWOO @PaPS 


PNOWODDDODOQOOOWO Orr rpwOouonuouwr 


=D) OWDWDNWOWOWWOW 


Overy Date 
Date Revd fm Org 
Coen Date 

Tate Ltr Tyred 
meecen RET Date 
Interim Eesp_Dat 
Bete rFtn fm IM 
Close Dat € 
Reopen Dat 

LTates Pies e'ned 
Tat2 change ID 


rtrd 


an 2pm 2 @ @ @ ww 
WOWOWDOWwWW 


—Z 
DOOD DODWOWOOWOOWO 


SESE RRR RS RRA RRR eRe 
On 


COMNWHHMOWD DOV OMOOOOGaAG2Z1NM 
RPPMMHSHWdOHMMOIT OR RIDA AAMHAHOAY Ow 
FAROOROUMmMrPhHEeye OMAOUKKd KK ORRIN 


Mth O Yor ane 


QO Srey tae 
ee oe ie ee eee ee ee 


=FNMNANNOION et LV = NOINOVON ON POs) 


@6¢ @@ g6 *@ 6600 6000 866 60 06 
MD OWWDDMOWWOWW 


ao nnn mm 2 om 2 we me 


ct 


+<¢ 
note 2 


a 
) 


Pemort Ccntzrcl # 
Cocument Number 
FSCM 

Tame Stare 
Analyst Code 
New- eae 
Date g/Ovhl 

Opn Peers tiure 
GOvnment Pisin ts h 


work Unit Code 


See noze 3 
eee nee Uy 


199999999999 « 
XXX ° 


@@06@0@ @¢@ 0@8 ¢60 €6@ 0606 086 

= QDOO!HXFZHAHywuo dD 
Cc ORARTHMNOM 
emt tO THE OO Wd 
mist mimang 

OO 

pl 4 pr pre p> pe pr 
— UN 2 f= a OV = 2 
— £W) 


mh FRM CR CR SSK RS 
=) 


od 
~~] 


OR 


3) 5) 





eee es 3 Code M: DIS ‘AAt A2 
Details ae Poe LS” Bexs. . 198. .X* A198 
Return Ccde Ms RETC gt Al 
Record Variable M:REC1 '99999A' A6 
Contract Numper M:NUS See note 5 Al7 

redit Ccdae Mire a Al 
Screening Cede M:SCBh OX X * A3 
Beply Secticn M; REELY Wee. 198.. xX! A198 
Action Ccde M:ACITKN ‘AAA* A3 
Cost Code Bs Gest ¢ ‘at Al 
Status Ccde M:STATUSC ‘'AA* A2 
Cause Code M:CAUSEC 'Af* A1 
Mecion Cisp'n MeACIDISP ‘A* At 
Si C us Siu "Ax? A2 
SO pecach Code M:O9C 7 Al 
Type Lefect M2 Der PES A2 
Memecr Liab Code M: VIC ‘at A1 
Meticn Fcint M:ACTET "AXXXXK99999"8 A11 
Fart Number M: MFG Noe Voss. XX * A16 
Lot/ser/catch i a be a OXN XK XX AX XX AY 
NSN M: NSN See note 6 eas 
Bee Zfodel/se I O: MCDEL eX ' AT 
Left Item Ser # Orbe rob hk "XX XXXX* A6 

her Boy O:HASSY D080 0.0.0.00066 A10 

pup assembly O: Sassy "XXXXXXXXXXXX!' Al2 
Tet Item MDT Tes Cee go KXKX* A35 
Met Ccrr Cost M=CCGsr 1999999999.99 N12 
ec y M: WNTY "at At 
Bereecn OUaentity M:SCHROTY '9999995 N6 
PeLTES: 

1. All dates EO agai DYE TOATECL, are concatena 
the variable POA URS fee StObags 1nzo the da 
This is eee eer tO Minimize the aumber of Vv 
active in the ¢D programs, and due to the 3 
limit per datalase. 

Beetras Variable is ths las= field in M:DATES. 
are either a blank, LO No SdeClCcts 
formed case that has net been 2ccounted fos 
Statistics. A x" shows that date was 
during a case urdate. These are blanked nce r 
tics ére calculated. 

5. NS eras Control Number (RCN) *XXXXXX-99-9999'! 

ro OCNO PICTURE ~ UXXXX XX -9999-9999 t 

Pec Omcrec= NUMDEL Dacture "XXKXXX-99-A-9999-9999'% 

6. NSN (FSC+NATO+FIIN) '9999-K X-xXxx-9999' 
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ROW cheat 


my fap 
io As 

thy) 
O 


beet t-- 
mitDMi3 
(of « 


(AQ 17°) 
rao << 
mm 3) 
(hi 
FO tres 
AdIerMD rDOMct 
(aon 


Ci!) 





i. 


eel 


IV. 


VI. 


Vil. 


Viti. 


IX. 


XI. 


XII. 


peel . 


XIV, 


AV. 


XVI. 


Aver 1 . 


Awe oT. 


APPENDIX D 


QDR PROGRAMS 


LOGCN MODULE . 2. -« « «© «© «© «© « « « 


LCCKCUT Sd os e 2 s oe o e e @ e 2 e 


Mee N PROCESS INGe MODULE . «© « « « « 


feovewenoh INPUT MODULE . .« « « « e« 


SromeurBVATE MODULE «. « « « « «© « « 


ror ecLOSING MCDULE . .« « « « « « 


Mate SASE HANDIER MODULE ....e =~. 


SUPERVISOR MENU e 2 es @ . ® . a ® 


SOrrrvesOR UTILITY MENU . « «© « « 


tenner ORD MENU 2. 2 «.« 6 « «© © «© « 


SlteavisOR REEFCRT MENU . «4 « « « e« 


QUERY MODULE e 2 e e 2 e e 2 e e e 


SueeieoriCs GENERATION MCDULE ... 


VUCeeteowaA te CCONVERSICN BODULE .. 


CCG COUNT MOD ees ® e e @ e e @ @ e 


Bee weeeiey STALISTICS REPORT MODULE 


Bente, so TALTESTICS REPORT MODULE . 


Pewee DeitolLENG REPORT MENU... -« 
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Bg 


62 


63 


66 


82 


10 1 


106 


Ze 


Zo 


2 


134 


138 


158 


16 3 


164 


166 


le 


18 2 





XIX. 


XX. 


XXI. 


XXII. 


eee ti. 


XXIV. 


XXV. 


mAVI @ 


Shoes korGlieNT MODULE . . 


Pin WANGER FILE UPDATE. . 


Sec Teles UPDATE MODULE . .. 


DATA BASE PACK MODULE .. . 


ANALYST FILE UFDATE MODULE . 


PASSWORD FILE UPDATE MOLULE 


CATA BASE RE-INDEX MODULE. 


OPE mCASHE REPCHT . « « « « -« 


Dis 


(psn8, 


2 


io? 


203 


205 


i 








I. LOGON MODULE 


ste ofc ke a aK kek eke kee eke ok ke Ka ek feof fe kc kak fe ok ok ok fe ok fe ke ic oto kote ke kek ok fk ok kk tok KX 


oe 
ke 
oe 3 
oe 3k 
oe 3k 
of 2k 
of ae 
ote ok 
3 
x 
3k 
ek 
a 2 
a 2 
2 3 
sek 
a 3 
of 3 
oe ok 
oe 


Bete: 22 Nov 1983 

Version: 1. 

Mcdule Name: LOGCN. eee 

Module Furpose: FErovide Password Logon Facilities 
for the QDR System 


Module Interface [Lefinition 
Ree: Nene 
Outputs: C: JULIAN, C:3WHO 


Mcedule Frocessing Narrative Description: 
Accepts The Passwcrd From The Operator, Val- 
idates The Eassword, and Calls The Necessary 


Mcdules 


Superordinate Mcdules: None 
Surordinate Modules: SUPMENUIT, MENUT, LOCKOUT 
Authors: R. G. NICHOLS 


sek 
oe 3 
a 2 
sie 3 
Hk 
ek 
oo 
cok 
ok oe 
Ao 
KI 
4 He 
3 
ok 
oe 3 
oe 3k 
oe 3k 
oe oe 
oe 3 
ok 


Be HEE He He eH eK eK He oe oe ea ee Ko Ke KK oe oe oe a KK i oe ee HK eK KK KK KK 


So 
Set 
SL 
Sel 
SL 
si0 


oe ak 


DO 


KK IK 


mALK OFF 
meet CFF 
menor TO 112,3 
EXACT ON 
CCLON OFF 
Peet TO V:CONTINUE 
** Accert ID of Ferson Logging On To The Systeén 
WHILE Vs: CONTINUE 
RAS 5 
STCRE ! ' TO C:WHO 
mee 2d okyY "ENTER YOUR ACCESS 1.D.' 
@ 11,37 GET C:WHO 
READ 
SACRE aes, |, =o Co WHO 
me CsanHO = *QUIT® 
QUIT 
ee 2 EF 
*%* Validate ID Tc Ses If A Valid User Is Legging On 
ores EOCHCODE INDEX D: TECH 
FIND &C3 WHO 
DO WHILE # = Q 
Ome 2G see’ SGGESS IT.D. NOT ON FILE! 
Ola, 26 SAY ‘PLEASE REBNTER® 
Sener enc GewnoO 
Om, 37 GET Cs: WHO 
READ 
Sten ewe: WHO). TO CzWHO 
ii pocwne = "OUIT* 
Cue? 
ENCE 
FIND &C: WHO 
ENDDO 
Sent toro vs LOGGED 


a9 





HK HK eK 


ie F 


ote ke ok 
kK KK 
AK ok 


MOK IK OK OK 


Geck TO See Tf Previously Logg2d On 


GGED ON! 


OT 
“© 


ries seem imtces Ths Correct Password 


=e tye 
(9 (a9 yd 

Cp) 
ORK 
te td 
titbg ce 
@ TFG) 
ars PH} 
WdIoOWM 
Oa 
oo 


hit efi hae 
cS 
tI 


mc YSrPSouD 
eAND. PSWD <> Vi: PSWD 


QOH 
<A NsitorPHyMswoor 


MO tier 'otity 
W) 
it = 
Oo = 


1 Passwords Are Entered, Cali 
cgram 


S 


wo mo 
C3 
© 
© 


= (D 


cy 

G&G 

hr ON 
‘Orh 
Ho 


stem 


iwhd A ® AQ Aree 


3 
© 
ow) 
a 2 [7 


Munawur 
OAH BN = 


exvisor is Logging On The System Call 
r Menu To Be Displayed Otherwise 

eal User Menu 
C 
U 


~ORes Gs WHO—"00 01 * 


SuORE T TO V:CCNTINUE 
Allow The Logged User To Logoff 


USE D:TECHCODE INDEX D:TECH 
FIND §C: WHC 
TF # = 0 
ERASE 
@ 10,32 SAY "LOG OFF FAILURE'+CHR (7) 
@ 11,27 SAY ‘CONTACT SYSTEM SUPERVISOR' 
@ 23,26 SAY 'STRIKE ANY KEY TO CONTINUE ! 
WAIT 
ELSE 
RFEL LOGGED WITH ' ' 
USE 
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ee¥xX*X* Clear The Screen, Read The Clock And Display Ths 
Kk**XX Legged Off Message and The Tine 
ERASE 
SLORe @ " V3; DUMMY 
pees ore too, 4h, 205, 33, 137, 22, 13, 280,; 
Ieee’ i>, 240, 195 
SBI CALL TO €1440 
Cex ¥: DUANE 
Soe, seen eeen (61456) ,2) TO V: HOUR 
STORE STR(PEFK (614855 3) nee woe TN 
SlOGrues (TR MPEEK (61454) ,2) TO V:SEC 
ie tiv tour pl, i)=" " 
Son fb Oty SOUR. 2, 1) “TO VrHOUR 
Peal 
IF S(V:MI lyst 
STORE "O43 (V:MIN, 2,1) TO V:MIN 
Ep eeer 
ie Mavs SoCe kal) =" 
STORE "O"4$(V:SEC,2,1) TO V:SEC 
EN Die 
Sewn MonOUnR wae +e cutee NtlYs SEC TO Ms TINE 
m sey sky “LOG OFF COMPLETED AT! 
er les 6 SAY et: TIME 
RELEASE ALL 
Seones ©£§ TO VeGONTI NUE 
ENDIF 
ENDS | 
Memeo on: PRESS ANY KEY TO CONTINUE ! 
WAIT 
USE 
ENDDC 
meee NOTE: This Pregram, Will Continus To Accept Logons 
HE eK fncil Fhe Oujet Command Gs Entered 
aee*e -FNE OF PROGRAM 
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ie 


MK ER RK I IE eK AK KK RR eK KO A OK eK KK KK KK OK OK OK 


2 
# 
Hk 
sec 
HK 
2 oe 
4k 
tok 
2 3 
Ak 
2 oe 
4% 
4 
sk ae 
3 
eX 
ok 
Ka 
ot He 


2 
** Date; 25 Nov 1983 
*x Version: 1. 
** Mcdule Name; LOCKCUT 
** Mcdule Purpose: Ic Lock The System After An Illegal 
a Logon Attempt 
*x* Module Interface CLefinition 
eek Inputs: Ncne 
a Outputs; None 
** Module Frocessing Narrative Description: 
*% This Program Will Dis oe An Illegal Logon 
=~ Message and Will Sound The Buzzer 
** Superordinate Modules: LOGON 
** Surordinate Modules: None 
e maewor:s Kk. G. NICHOLS 
oe she ak kc oe ote of oe oe eof 2 ae cate ke ao ae ke ak i ake ot ca kc of oe oe te ok ok ode oe oe oe ke ake ok ok ok oe ke ok ook ek 
Ser TALK OFF 
oer CCLCK TC 4,4 
SeenE £ TO V:CONTINUE 
Sore t TO V3:TOGGLE 
axe k* Clear The Screen and Display The Illegal Access 
wwe §69fessage 
BRAS E 
DO WHILE V: CONTINUE 
eeeORS 5 TO Vs: INNEE 
mo WHILE VsiNNER > 0 
If V: TOGGLE 
ives Ski  TCREGAL ACCESS ATTEMPT * 
@21, 0 SAY ' * + CHR(7) 
EES | 
a MO,29eSAy ° t 
ome is O SAY ' ! 
rer) IF 
Sec rE VSiNNER~-1 TO Ve: ENNER 
ENCDDO 
IF V:TCGGLE 
Sseeors F TO Vi: TOGGLE 
oS 
SlokE T FO Vs TOGGLE 
ENOLF 
ENDDO 
xeax* NOTE: The System Must Be Rebooted To Exit From 
Hee 2K An Illegal Access Attempt 
exe END OF PROGRAM 
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it. HAEN PROCESSING MODULE 


oe ke a a KE ake a ke a 2 ae ee ok hee ake eo oe Ke KE 2k 2k of ok ke fe fe a oe Ke ke ok ake i ke oe 2K Coke 2 KK ok ot ok KK ek 
exe Ke 3k 
**x DATE: 15 NOVEMBER 1983 kk 
** VERSICN: 1.0 eK 
**¥ MODULE NAME: MENUI1 A HK 
**¥ MODULE EURPOSE: FROVIDE THE USER A MENU OF ALL HK 
KK EROCESSING OPTIONS AVAILABLE TO HIM/HER IN aK 
% ThieeeoprR SYSTEM. ex 
** MODULE INTERFACE LCEFINITION aK 
eK eel ss CsWwHoO * 
woe OUTPUTS: Cs: JULIAN KE 
a MODULE EROCESSING NARRATIVE DESCRIPTION: ee 
MK DISPLAYS ALL PROCESSING OPTIONS AVAILABLE TO ** 
KK tuck eee UPON USER oDbLECTION, CALLS THE mK 
ek APPROPRIATE MODULE FOR CONTINUED PROCESSING eK 
a REbems USER TO EXiT FROM THE ODR SYSTEW. oe 
**X¥ SUPERORDINATE MOLULES: LOGON mK 
Me SUEORDINATE MODULES: OPEN,CLOSE,UPDAT,LTR,REPTMENU, ae 
kX QU ERY te 
oS MonHOR: J.G. BOYNION & R.G. NICHOLS ae 


WK 2K a aie Re aK OK ake HK ae ke oie He ae oie ek Ke ae He Oe OK ie eK KE eK he oe oe ee oe he ae ae oe ee Ke Ok ee 


eee laeeS SECTICN ACCESSES THE SYSTEM DATE 
= LOR Oey se ) Ue 


POKE 61440 fort Ze ZU couse Zon 3, 240, 137,:3 
mi 15, 240, 195 
SET CALL TO’ 61440 
CALL V: DUMMY 
STORE PEEK(€1454) TO V:MM 
STORE Brey eti2?} TO V:DD 
STORE PEEK (61456) *25€+PEEK (61455) -1900 TO V:YY 
eeEKE THIS SECTICN CCNVERTS THE SYSTEM DATE TO A JULIAN DATE 
BOWGASE 
CASE V:MM = 01 
Sueowmieve DD TO “We DAY 
CASE V:MM = 02 
STCRE V:DD + 31 TO V: DAY 
CASE V:MM = 03 
SLeGRemy: DD + 59 TO V: DAY 
CASE V:MM = 04 
STCRE V:DD + 90 TO V: DAY 
CASE V:MM = 05 
STCRE V:DD + 120 TO V:DAY 
CASE V:MM = 06 
STCRE V:DD + 1&1 TO V:-TAY 
CASE V:MM = 07 
STCRE V:DD + 181 TO V:DAY 
CASE V:MM = O08 
STCRE V:DD + 212 TO V:LCAY 
CASE V:MM = 09 
STCRE V:DD + 243 TO V:-LAY 
CASE V:MM = 10 
STCRE V:DD + 273 TO V:DAY 
CASE V:MM = 11 
STCRE V:DD + 304 TO V:LAY 
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STORE T TO V: CONTINUE 
STORE ' ' TO V: CHOICE 
ELSE | 
@ 21,20 SAY ' < PLEASE ANSWER WITH 1 - 7 ONLY >? 
@ 23,20 SAY *<PRESS ANY KEY TO CONTINUED! 


mpi r <V;:CHCICE> 
ENDDO <V:CONTINU E> 
weet e FNC OF PROGRAM 
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whe ote ode otek ok ake KOK ok KK Ke ke eK ak He oe ee eK OR eK ee ke Ko OK a ee eK KK OK KK Kk KK 
oe 3k Kx 
**k DATE: 18 NOV 1983 sk 
**k VERSICN: 1.0 tk 
** MODULE KAME: OPEN ek 
*k* MODULE EURPOSE: NEW ODR CASE CREATION se 
** MODULE INTERFACE LEFINITION a 
2k INPUIS: C:WHO, C:JULIAN, V:JULDATE ee 
ne OUTPUTS: M: CASE, V:MM, V:DD, V:YY, AND ALL OF THE * 
a DATA ELEMENTS IN OPEN? AND OPEN2. ak 
** MODULE EROCESSING NARRATIVE DESCRIPTION: + 
oe EROMPTS THE USER FOR INPUT OF ALL DATA FROM x 
ok 3 SF 368 IN CEDER TO CREATE A NEW ODR CASE. 4 
vox VALIDATION CF DATA ITEMS OCCURS UPON INPUT AND ** 
oe IS BASED UECN CURRENT GE TIMESHARE VALIDATION, ** 
4% AS MODIFIEEL BY FMSO TECHNICAL BRANCH. DATES ne 
* ARE CAPTURED FOR MANAGEMENT STATISTICS. + 
** SUPERORDINATE MOLULES: MENU ook 
**  SUEORDINATE MODULES: OJULIAN, XDBHNDLR sk 
#* AUTHOR: J.G. BOYNTON + 
* 
me We OK Ke i a Ro ok ok ie i ok ke ok ee oe eo ie i oe ee eke a ote oe ie ee ode oe ode oe ee ke te OK de ook he eke ok ok oe ok ok KK 
STORE T IO C:TRUE 
lO WHILE O: TRUE 
FRASE 
STORE * * TO O: CHOICE 
TEXT 


t+ Too eNeNEW CASE <*** 


noe nec) ENABLES YOU ITO OPEN A 
NEW QDR CASE 


1 = RECN UE 
Zo ean TO MENU 
my * 3Grl O: CHOIGE 


we 


ALL EXCEET C:# 
ENDIF 
*k*&* INITIALIZE MEMCRY VARIABLES 
STORE ' ' TO O:KEY 
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STCRE {(M:UIC) TC M:UIC 
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ENDIF 
ENDDO <O:UIC1> 
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RELEASE C:ELATET 
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RELEASE C: NCMEN 
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STORE STR(TEMP2, 2) TC O:TENYRS 
RELEASE TEME1,TEMP1A,TEMP2, LOW 
STORE T TO O:0VER 
DC WHILE O: OVER 
@_ 14,35 SAY ' * GET M:OVER PICTURE '99999' 
IF M:OVER=° i 
STORE F TC O:OVER 
ELSE 
IF $(M:OVER,3,3) > '365'; 
-OR. § HLOVER. 1,2) < O:TENYRS : 
-OR. S(N:OVER, 1,2) > O:ULIMIT | 
@ 23,30 SAY "DATE OUT OF RANGE! 
ELSE 
STORE F TO O:0OVER 
ENDIF 
ENDIF 
EFNDDC <O:0VER> 
@ 23,30 SAY ' 
ENDIF 
RELEASE C:OVER, O:TENYES 
STORE T 10 O:0TF 
DO WHILE O:CTF 
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° = © 9 {1 $ g e = ’ 
AND 2 3 (2 OTF 62 94 >" 100008 
STORE F TO O:0TF 
ELSE 
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ENDIF 
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IF M:GOV = ' * .OR. M:GOV = 'Y* .OR. M:GOV = 'N! 
STORE F TO C:GOV 
ELSE _ 
ee: 23,30 SAY ‘USE EITHER Y OR N OR LEAVE BLANK! 
ENDDO <0:GOV> 
Py23.30 SAY * 
RELEASE C:GOV 
STORE T IO C:QTYRECT 
LO WHILE O:OTYREC 
@ 17,35 SAY ' * GET M:QTYREC PICTURE '999999! 
IF M:QTYREC < 0 .OR. M:QTYREC > 999999 
@° 23,230 SAY ‘CUT CF RANGE! 
ELSE 
STORE F TO O:OTYRECT 
ENDIF 
ENDDO 
@ 23,30 SAY 't 
RELEASE C:QTYRECT 
STORE T TO CiQTY INS 
[O WHILE O:QTYINS 
a 17,43 SAY '/t GET M:QTYINS PICTURE '999999! 


iS 





IF M:OTYINS <0 .CR. M: QOTYINS > 999999 
@° 23.30 SAY ' CUT OF RANGE! 
EISE 
STORE F TO O:CTYINS 
ENDIF 
ENDDO <O:QTYINS> 
ms ,30 SAY § 
RELEASE C:OTYINS 
STORE T 10 G:OTYDEF 
LO WHILE O:OTYDEF 
q17,50 SAY '/' GET M: QTYDEF PICTURE '999999' 
READ 
IF M:QTYDEF <1 .CR. M:QTYDEF > 999999 
@°23,30 SAY ' DEFICIENT 
OUT CF FANGE' 
ELSE 
STORE F TO O:CTYDEF 
ENDIE 
ENDDO O:CTYLEF 
RELEASE C:0TYDEF 
@ 23,30 SAY ! ! 
STORE T TO O:QOTYSTK 
DO WHILE O:CTYSTK 
a 17,57 SAY '/" GET M: QTYSTK PICTURE '999999! 
IF M:OTYSTK < 0 .CR. M: QTYSTK > 999999 
@ 23,30 SAY ‘IN STOCK 
OUT OF RANGE! 
ELSE 
STORE F TO O:CIYSTK 
ENDIF 
FNDDO O:CTYSTK 
@ 23,30 SAY ' 
RELEASE C:OQTYSTK 
@ 18,35 SAY * * GET C:MODEL PICTURE "XXXXXXX' 
@ 19,35 SAY ' ' GET C:DEFSER PICTURE "XXXXXX' 
READ 
d 20 435 SAY ' * GET C:HASSY PICTURE 'XXXXXXXXXX' 
a 21,35 SAY ' * GET C:SASSY PICTURE *"XXXXXXXXXXXX! 
STORE O:¥ODEL+O: DEFSERtO:HASSY+ O:SASSY TO M:DITEM 


feet es EFROMPT USER FOR RESPONSE 


SeORE T 10 CsEND 
BOPWHILE O: END 


STORE * ' TC O: REPLY 
2z,10 SAY? kK CHECK PREVIOUS ENTRIES '; 
+O RHKKKSK 1 
@ 22,10 SAY ' CHOOSE 1- CONTINUE ENTRY 2- MAKE '; 
ene +'CCRRECTIONS ' GET O: REPLY 
IF C:REPLY <> '1" LAND. O:REPLY <> '2! 
eis¥! 23,10 SAY ' ANSWER WITH A 1 OR 2 ONLY 
STCRE F TO C:END 
ENDIF 
ENDDO <O:ENED> 
IF O:REPLY = '2! 
STCRE T TO O:CORRECT 
@ 22,10 SAY ' 
@ 23,10 SAY ' 
ELSE 
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STORE F TO O:CORRECT 
ENDIF 
ENDDC <C:CORRECT> 
RELEASE C: MODEL, O: DEFSER,O: HASSY,O:SASSY,O:END,O:COUNT 
*#x**% HERE IS THE COMERESSICN OF M:REPCON, M:NUM,M:DOCNO 
STORE $ (UzREPCON, 1, ,6)+$ (M:REPCON, 8, 2) +$ (M: REPCON, 11,4) TO ; 
STORE C:REECON TC M:REECO 
STORE S(mzNUM, 1 cy +é (ME NUM, 8,2) +S (4:NUM, 11,1) +$ (M2 NUM, 13,4) = 
+$(¥: NUM, 18,4) TO O:NuUM 
STORE O:XUM TO M:NUM 
STORE $ (2 DOCNO, 1,6) +3(MzDOCNO, 8,4) +$ (Mz DOCNO, 13,4) TO : 
STORE O:ECCNO TO M:DCCNO 
RELEASE C:REPCON,O: NUM,O:DOCNO 
xkkE** CAETURE THE JULIAN DATE AND PUT INTO OPENING DATE 
STCRE C:JULIAN TO M:OFEN 
STORE M:DDATE#M:RDATE+M : ODEN+: 
+" N' TO M: DATES 
RELEASE M:DEATE,M: RDATE,M:OPEN,O: ACT DTT. O:PREPT,; 
O:LLIMIT,O: ULIMIT 
AKKEX THIS IS THE START OF THE SECOND SCREEN OF DATA ENTRY 
STORE ' * 1O M:UI 
STORE 0 TO M:UPRC 
STORE ! ' TO M:WUC 
STORE ' ' TC M:ACTDISE 
STORE ! ' TO M:ACTPT 
STORE ! 1 
+t ts 
+! ' TO M:DETAILS 
STORE ' ' TO M: DEFV 
STORE ' ' TC M:DEFR 
STORE ' ' TO M: DEF 
STORE ' ' TC M:090 
STORE ' * TO M: DOC 
STORE ° ' TO M:ORG 
STORE O TO M:CCOST 
STORE T TO C: PACE2 
LO WHILE O: PAGE? 
@0,10 SAY ! UL J 
GET M:UI 
@21,10 SAY ' UNIT PRICE ' GET M:UPRC PICTURE : 
1699999991 
@ 2,10 SAY ‘18: EST. CORRECTION COST <O> 'GET: 
M:CCOST PICTURE '999999999.99' 
@ 3,10 SAY '19. WARRANTY - Y/N/U 'GET: 
M:WNTY PICTURE 'At 
2 4,10 <ay 120. WORK UNIT CODE <O> 'GET: 
@5,10 SAY 21. ACTICN/DISPOSITION -H/I/D/B/0O <C> 'GET: 
M:ACTDISP PICTURE 'X' 
@ 6,10 SAY '22. DETAILS OF DISCREPANCY - FIRST 2 ° 
@7,10 SAY ! LEITERS MUST BE DISCOVERY CODE! 
@8,10 SAY ! ' GET M:DETAILS 
@ 12,10 SAY '23A. ACTION POINT ts 
GET MS ACTPT EICTURE "AXXXXX99999! 
@ 13,10 SAY ! DEFECT VERIFICATION CODE - N/O/U/Y <o>': 
GFT M:DEFV PICTURE 'A' 
214,10 SAY ! DEFECT RESPONSIBILITY - C/N/S/U/X <O>!'; 
. GET M:DEFR PICTURE ‘At 
@ 15,10 SAY * 90 ie 
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GET M:090 PICTURE 'X! 
@ 16,10 SAY ' ORIGIN COLE ts 
GET M:ORG PICTURE 'AAX' 
@ 17,10 SAY '30. TYEE DOC t. 
GET M: DOC PICTURE '9! 
@ 18,10 SAY! TYEE DEFICIENCY - 
GET M: DEF PICTURE '99' 
CLEAR GETS 
STORE T TO O:UI 
DO WHILE O:UI 
@ 0,10 SAY! UI ; 
' GET M:UI PICTURE ‘AA! 
R EAD 
IF $(M:UI,1,1) = ' * JOR. S (Ms Dr,2,1) = ¢ ° 
@ 23,30 SAY * NO BLANKS 
ELSE 
STCRE F TO O:UI 
ENDIF 
ENDDO O:UI 
a Zs 30 Sire t 
RELEASE O: UI 
STCRE T TO C:EPRC 
STORE T TO C:UPRC 
DO WHILE O:UERC .OR. O:EPRC 
DO WHILE O:UPRC 
1,10 SAY ' UNIT PRICE ' GET: 
a. M:UERC PICTURE '999999.99' 
IF M:UPRC < .01 .OR. M:UPRC > 999999.99 
.o 23,30 SAY * AMOUNT OUT OF RANGE ' 
STORE F TO O:UPRC 
ENDIF 
ENDDO <C:UPRC> 
@u25,50, 5407 * t 
STORE (M:UPRC * M:QTYDEF) TO M:EPRC 
@ 1,43 SAY "EXT PRICE $! 
®@ 1,54 SAY MtEPRC PICTURE '999999999.99! 
IF M:EPEC >= 100000000 
ne @ 23,30 SAY * EXTENDED PRICE OUT OF RANGE! 
STCRE F TO O:EPRC 
ENDIF 
ENDDO <O:UPRC & O: FPRO 
RELFASE O:UEEC,O:EERC 
Meco SAY ' ' 
® 2,10 SAY ‘18. EST. CORRECTION COS 
+'<G> 'GET M:CCOST PICTURE 939999999. 993 
READ 
STCRE T TO C:WNTY 
DO WHILE O: WNTY 
@ 3,10 SAY '19. WARRANTY - Y/N/U 
' GET M:WNTY PICTURE ‘a! 
STORE !(M:WNTY) TO M:WNTY 
IF M:WNTY <> "Yt LAND. M:WNTY <> "NY ; 
SAND. M:WNTY <> "UF 
@ 23,30 SAY ‘USE Y,N OR U ' 
ELSE 
SICRE F TO O: WNTY 
ENDIF 
ENDDO <O:WNTY> 
Mees 20 SAY ¢ 
RELEASE O: WNTY 
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pee ony * USE O01 - 19 ONLY! 
Signe F TO OF DEF 


ENDIF 
PPO. Os.) ik > 
ee eas O's Dk F 
ge 2250 SAY * ; 
mame e ERCNET USER FOR RESPONSE 
suenee tT TO Cs END 
DC WHILE O:END 
SORE * be TO “Oe REEL Y 
a7, 2 Uma 6=—h — 6POST hUCCASE* 
ae 720 eee & - CHANGE DATA® 
eee ee eee Ss Eki WITHOUT POSTING * 
oon SAY eee Goel Os REPLY 
amis wi a Se ene Os REPLY <> '2' ; 
Tees OeReEeLyY <> 13° 
a 23,5 Se emen WITH t=—2 = 3 ONLY § 
ee 5 
oe CRM iC OSEn D 
END TF 
ERD DO <0; ENED 
eo, |O0 SAY ! 
RELEASE O:ENL 
ERASE 
iimeOoRE FLY. = ' 71! 
Ge Oy 2.0. soa Y CASE DemniGe POSTED TO DATA BASE ° 
Os, 20 one PReaok SLANDBY | 
@ 20,20 SAY ike DO NOT INTERRUPT KK : 
sLOnhe F TO O:PAGE2 
oem "IF" TO MsTYPE 
Bec ADEANDLR. PRG 
sper '2r' TO MSTYPE 
DO CsXDERNDLE. G 
ERASE 
ger o520 SAY ' Chobe UNSER e@Or THESNEW CASE* 
Que, Ss SAY %M:°CASB 
gees, 20 SAY * Peo omen hey 8fO CONTINUE 
WAIT 
SELES 
BeeOo; REPLY = '2' 
SVORE LT 10 OsPAGEZ2 
ELSE 
(reece LY  =.' 3° 
SreOnk F 100; PAGEZ 
ENDL 
ED Le 
ENDDC <C:PAG E2> 
Peet ALL EXCEPT C3* 
syeont I TO O:TRUE 
ENDLEO <0: TRUE> 
RETURN 


panes FNE OF PROGRAM 
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V. CASE UPDATE MODULE 
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eK 
DATE: 8 DECEMBER 1983 4 
VERSICN: 1.0 ek 
MODULE NAME: UPDATE ai 
MCDULE PURPOSE: ALLOW ADDITION AND/OR CORRECTION OF ¥x 
LATA IN QDR CASE CURRENTLY IN QDR 4 
SYSTEM. ai 
MCDULE INTERFACE [EFINITION #3 
INPUTS: CASE, C:WHO, C: JULIAN a 
CUTPUTS: ALL [ATA ELEMENTS IN OPEN! & OPEN2, - 
MCDULE EFROCESSING NARRATIVE DESCRIPTION: - 
USER ENTERS CASE NUMBER OF CASE TO BE CHANGED. a 
MCDULE SEARCHES DATA BASE FOR CASE AND a 
DISELAYS INFORMATION CURRENTLY ON FILE THROUGH 4% 
A SERIES OF THREE MENUS. DATA IS WRITTEN TO 4 
FIRST DATA BASE MIDWAY IN PROCESS DUE TO se 
LIMIT OF 64 MEMORY VARIABLES AT ANY ONE TIME. 4 
CHANGE OF DATES IS NOTEL FOR STATISTIC 3 
MCDULE UTILIZATION. - 
SUPERORDINATE MODULES: MENU1 4 
SUEORDINATE MODULES: XDEHNILR “a 
AUTHOR: J.-G. BOYNTON +h 
* 
ARF AK AR OK KG RK IE CK Ke Ak ok eK KK OK oe KE oe i KK KK Ko OK eK kK kK ok 
ORE T TO U:UPDATE 
WHILE U: UPDATE 
SHORE T TC UsPRUE 
DO WHILE U:TRUE 
ERASE 
STORE * 'T0 U: CHOICE 
TEXT 
HEKAK YF PDATE **% *Kx 
THIS PROGRAM ALLOWS YOU TO 
UPDATE A QDR CASE 
1 - CONTINUE 
2 - RETURN TO MENU 
FNDIEXT 
@ 20,40 SAY ' ' GET U:CHOICE 
DO WHILE U:CHOICE <> '1" .AND. U:CHOICE <> '2! 
@ 23,20 SAY 'ENTER 1 OR 2 FOR YOUR RESPONSE? 
@.20,40 SAY ' ' GET U: CHOICE 
READ 
ENDEDO <U:CHOICE> 
ERASE 
IF U:CHOICE = '2' 
RELEASE ALL EXCEET C:* 
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RETURN 


ENDIF 
ERASE 
STORE '! "TO M:CASE 
TEXT 
ke SELECT RECORD FOR UPDATE ***** 
ENTER THE CASE NUMBER 
OF THE RECORD TO BE UPDATED 
ENDTEXT 
STORE ' ' TC U:REPLY 
a10, 29 SAY 'CASE ' GET M: CASE PICTURE '999999x'! 
STORE M:CASE TO M: KEY 
STORE '1E' TO M:TYPE 
CO C:XIBENDLR 
IF M:TYFE = "98 
@ 12,25 SAY *RECOED NOT FOUND IN OPEN FILE ! 
@ 13,21 SAY 'DO YCU WISH TO CHECK THE CLOSED FILE ?! 
Q 14,40 GET U:REPLY PICTURE ‘A! 
DO WHILE 1(U: REPLY) <> "'Y! .AND. ! (U:REPLY) <> ‘NS 
@ 14,45 SAY ‘ENTER Y OR N! 
@ 14,40 GET U: REPLY PICTURE ‘At 
READ 
ENDDO 
@2 14,45 Say ! ' 
ma i (U:RePLY) = "yt 
STCRE '3EF' TO FM:TYPE 
DO C: XDBHNDLR 
IF M: TYPE = '9¢8 
@ 16,23 SAY "RECORD NOT FOUND IN THE QDR SYSTEM! 
@ 17,27 SAY "STRIKE ANY KEY TO CONTINUES 
WAIT TO U:REELY 
ELSE 
IF MsTYPE = ‘1! 
@ 18,28 SAY "RECORD CURRENTLY IN USE! 
@ 19,27 SAY 'STRIKE ANY KEY TO CONTINUE! 
WAIT TO U:KEPLY 
ELS# 
RASE 
STORE F TC U:TRUE 
STORE 'CLCSE' TO U:FILE 
ENDIF 
ENDIF 
NDIF 
ELSE 
IF M: TYPE = ‘1! 
@ 12,28 SAY 'RECORD CURRENTLY IN USE! 
@ 13,27 SAY 'STRIKE ANY KEY TO CONTINUE! 
@ 14,40 GET U: REPLY 
READ 
ELSE 
FRASE 
STCRE F TO U: TRUE 
STCRE "OPEN! TC U:FILE 
ENDIF 
ENDIF 
ENDDO <U:TRUE 
eee THIS SECTION FOR CURRENT DATES VALUE CAPTURE 
FRASE 


meeone 2 (NM: CATES,1,5) TO M: CEATE 


83 


(2) 
He = 
fe eS EH tt fx [2 
IW HOA RAUIAL 
HimuamosOoo 
CSOOURHHAR 
BO ANH E 
oes SSIs so sts 
=: 
DOOCOe@aGO 
OHHH EEE 
4 


ig a gn, sg tan af OR, tO go, 


aeLOUNUuI UN un) 


iM -e&*e & ®& e& & & 


w= OT V0 —\O = 
WOPrrrannmmMss 


=» e& & & & & & & 


MMNIMMNWNWM UY) 
MMM eq Aey 
HRB HHHHe 
FT KG CY cl DT ey 
OMAOARAQM 
oo 00 00 oe 88 88 oe oe 
SHS 


jee? a? “eee Sey eg “ee 


PFA AH HY 


Fe bee beg bet ed fo} bd fe] 
04.04 04 G04 AG AG A 
OOOO0000 
HHH HHHe 
NMNNNMNNWNN 


(Ji CD ped td oe oo) oe 
eoceevee F4E4 «oe E+4 


La BVNVBSS 


beg fd be fd be ed bd Ad 
mn Ag og ag A AG Oo AG 
OOC ODE @2 © 
HHH HHH HHE 
NNN NM NNN NY) 


Box ft hAnKS FOR 


LOW 
AN DATE 


Keka OT 
kK T 
eK IK aK ok 
eK I aK ok 


eLLt, ULMT 


a 
T 
A 


OHA DOHHHe 
™ 4 E4 fu 
SmHHEONN 
aim |= OOH 8 SEH 


oe er "0 Ay rr 
Ord Heed 22 0 0G OG te4 
"eS eet 26 G4 EY 

? 


bee fd Fd ed ee ed fe Bd cb 
AG OG Aa AG AG AG A OG 
OOQOODOOOOH 


bet 


BHABHA HHH EE 
MMMM wae 


DAT ESSCURR Eee FreE FOR CASE 


Wn \O 
TFANNAMANAAN MONA 


ee SAY 


aw 
Irf fej tr] cq C4 Ir} 
E4+E4 E4 Aang Ay 
KC eG MUI =) ©) 
AA AURH fr 
AG HUH AG 
e808 @8e ee 6©0 @8@ e¢ 96 
=. S323 = 
E+ E+ E4—E4R4 4 E+ 
fr 4 POF ft] = 
(Hie) COC 3 
+ tt 
N 
WV") 
fr] 
E44 
fq TG 
a (HO 2 
tH LC 
3) MMOs fq 
tH E4 WY 
AG Rati hijss fq 
© AAW 14 
{x3 QQ mH E+ 
FAs Atrtionw 
(be G4 Ay bed 
AMA HOW cy, 
yet ati fyhoO wa 
a AQ HkjmAa TG 
mA F410 = fry ae 
MOO HH O 
re OIA a 
OHH WWammhy We 
URIS BhAnon AO 
Mt MMO OB 
RFiigty MmUaide-d fe 
AMO HOHMU Mma 
hy Z fh] x 
WY fq Ww = 
i Ay O 
U Oo J #* 
ee ee () V 
=: bo oe 
= 
> > > 


OTS et et et tt Ot dt 0 YD 
QL EU) eG eGR Qe YU) el Ce 
WWM NMNMNN WWMfy 

Ww Le) 


» ese & & & & & & &® & & Y WHY 
MNONHAODOCNAMSFANNOD 
Se ee ee oe FI 


ra 


Me GRBsSeGeoeCsasavsevgesd 


neeDID AT & 


GET 


84 





Gees mony “DATE OUT OF RANGE’ 





EL 
STORE F TO U:DDATET 
ENDI 
SE 
STORE F TO U:DDATET 
ENDIF <ELANK> 
ENDDO <U: DDATET> 
@ 23,30 SAY t 
STORE T TO U:RDATET 
DO WHILE U:BLATET 
29,35 SAY ' * #£GET M:RDATE 
READ 
IF $(u:RDATE we UeIMIT ; 
TOR. $(M:RDATE,1,2) > U:ULIMIT : 
SOR. $(M:RDATE,3,3) <taoi' ; 
-OR. $(M:RDATE,3,3) > '365': 
“OR. M2RDATE > C:gJULIAN : 
One Meee ne SG MSDDATSE ; 
.OR. M:RDATE >M:OPEN 
@ 23,30 SAY 'DATE OUT OF RANGE! 
ELSE 
SIORE F 10 U: RDATET 
ENDIF 
ENDDO <U:RDATET> 
@ 23,30 SAY * 
RELEASE U: DEATET,U:RDATET 
STCRE T TO U:LDATET 
DO WHILE U: LDATET 
@ 11,35 SAY ' ' GET M:LDATE 
READ 
IF M:LDATE <> ! 
IF ¢(M:LDATE,1,2) < U:LLIMIT ; 
CR. $(M:LEATE,1,2) > U:ULIMIT ; 
.CR. S(M:LLATE, 3,3) <'001' ; 
OR. $(M:LDATE, 3,3) > '365't'; 
-CR. M:LLATE > C:JULIAN : 
-CR. M: LEATE < M:OPEN 
23,30 SAY "DATE OUT OF RANGE! 
ELSE 
TORE F TO U:LDATET 
ENDIF 
ELSE 
STORE F TO U:LDATET 
ENDIF 
ENDDO <U:LDATET> 
@ 23,30 SAY ' 
STORE T TO U:SCDATET 
DO WHILE U:SCDATET 
® 12,35 SAY ¢' GET M:SCRDATE 
READ 
IF M:SCRDATE <> '* 
IF £(M:SCRDATE,1 2) < U:LLIMIT : 
CR. $(M:SCRDATE,1,2) > UsULimiIt : 
.OR. S(M:SCRDATE,3,3) <*'001' : 
.OR. S(M:SCRDATE, 3,2) > '365': 
.CR. M: SCRDATE < M:LDATE 
®@ 23,30 SAY "DATE OUT OF RANGES 
STORE F TO U:SCDATET 
ENDIF 


o> 


E 
STORE F TO U:SCDATET 
ENDIF 
ENDDO_<U: SCLATET> 
@ 23,30 SAY ' 
RELEASE U: LEATET, U:SCDATET 


STCRE T TO U:IRDATET 
DO WHILE U:IRDATET 
2 13,35 SAY ' ' GET M:IRDATE 
READ 
IF M:IREATE <> ! 
IF $ (Wi IRD ATE 1,2) <U:LLIMIT 
.CR. 3(M:IRDAT2,1,2) > U: uLIMrT: 
-CR. S¢(M:IRDATE,3,3) <*'001' : 
-CR. $(M:IRDATE,3,3) > 365°: 
-CR. M:IRDATE < M:OPEN 
23,30 SAY ‘DATE OUT OF RANGE! 
STORE F TO U:IRDATET 
ENDIF 
EL 
STORE F TO U:IRDATET 
ENDIF 
ENDDO_<U:1RDATET> 
f 28.30 SAY 
STCRE T TO U:RIMDATT 
DO WHILE OU: RIMDATT 
®2 14,35 SAY ' ° GET M:RIMDAT 
READ 
IF M:RIMEAT <> ! ’ 
IF $(M:RIMDAT,1 2). <U:LLIMIT : 
-CR. S(M:RiMBAT,1,2) > U: ULIMIT: 
-CR. S(M:RIMDAT,3,3) <'001' : 
-CRe ${M:RIMDAT,/3,3) > "365° 
23,30 SAY !DATE OUT OF RANGE! 
ELSE 
IF M:RIMDCAT < M:LDATE 
®@ 23,30 SAY ' RTN DATE NOT ': 
ian +'*BEFORE TRANSMITTAL DATE! 
STORE F TO U:RIMDATT 
ENDIF 
ENDIF 
ELS 
a STORE F TO U:RIMDATT 
ENDDO <U: RIMLATT> 
a 23,30 ps 
RELEASE U:IRDATET, U:RIMDATT 
STCRE T TO U:REOPENT 
DO WHILE U: REOPENT 
®@ 16,35 SAY ' 3 GET M:REOPEN 
READ 
IF M:RECEEN <> ! 
ee een Net) <UsLLIMIT ;: 
en. oS H:REQEEN, 162) > U: ULIMIT: 
.CR. S(M:REOPEN,3.3) <'OO1" ; 
.CR. $(M:REOPEN,3,3) > '365! 
@ 23,30 SAY 'DATE OUT OF RANGE! 
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Sem ver LO MsTYP 
(ee wee tO M:TYPE 


Mee SKIP FIRST PAGE OF UPDATE IF REPLY WAS <N> 


BOUWHELEE US PFIRSIEG 
SL CRE (taco: USCAT 


DO WHILE U:CAT 
o1,42 SAY ‘CAT * GET M:CAT PICTURE '9! 
R 
IF M:CAT ="1" .OR. M:CAT ='2! 
SICRE F TO U:CAT 
ELSE 
®@ 23,20 SAY *' 1 OR 2 ONLY?® 
ENDIF 
ENDDO U:CAT 
23,20 SAY ! i 
RELEASE U:CAT 
STORE T TO U:COG1 
STORE T TO U:COG2 
DG Weep teUs Cel .OR. Us COG2 
DO WHILE U:COG 
@ 2435 SAY * * GET M:COG PICTURE '9x! 
STORE !(M: COG) TO M:COG 
IF $(M:COG,2,1) = ' ! 
@ 23,26 Say * NO BLANKS IN 2D °: 
+"*DOSITION! 
ELSE 
STORE F TO U:COG1 
ENDIF 
ENDDO <U:COG1> 
@ 23,20 SAY ! '. 
+ ° g 
eek CHECKS THAT COG IS VALID IN CURRENT COG TABLE... MUST 
xkkx* BE VALID TO CONTINUE 
USE L:COG INDEX D:CoGS 
FIND §M:COG 
IF #= 0 
@ 23,20 SAY * COG INVALID - ENTER ': 
+8 CORRECTED ENTRY' 
ELSE 
STORE F TO U:COG2 
ENDIF 
ENDDO <U:COG1 & U:COG2> 
RELEASE U:CCG1, U:COG2 
Oe 23,20 SAY * Je 
+1 q 
IF M:COG = '1H* .OR. M:COG = '2H' .OR. M:COG = ‘7H! 
STORE IT TO U: SMIC1 
DO WHILE U:SMIC1 
a 2045 SAY * * GET M:SM PICTURE ‘AX! 
STCRE t(u:sM) TO Mist 
Poet § X'..0R. S$ (N3SM,1,1) = *L* 
STORE F' TO U:SMIC1 
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Ori 


ELSE 
meee 30 Shy *X OR L ONLY' 
ENCIF 
ENDDO <U:SMIC1> 
DIF 
LEASE U:SMIC1 
Dao O SAY at ' 
ORE T TO U:UIC1 
WHILE U:UIC1 
Q 3435 SAY * * GET M:UIC PICTURE "AXXXXX! 
IF $ (uz 0TC. 101 = ' tor. $(u: AEC 2adii= © © SOR: 
$ (M:UIC,3,1) = ' *.OR. SQM:UIC,4,1)= ' " LOR: 
$ (M:UIC,5,1) = ' '.OR. $(M:UIC,6,1)= ° 
ad @ 23,20 SAY * NO BLANKS ALLOWED IN UIC! 
STORE F TO U:UIC1 
END TF 
DDO <U:UIC1> 
23,20 SAY ! 
LEASE U: UIC 
4935 SAY * ' GET M:REPCON PICTURE 'XXXXXX999999! 
CRE T TO U:ACTPTT 
WHILE U: ACTPTT 
@ 5435 SAY ' 'GET M:ACTPT PICTURE "AXXXXX99999' 
R 
IF M:ACTET= ' 
@ 22,30 SAY "MAY NOT BE BLANK? 
ELSE 
STORE F TO U:ACTPTT 
ENDIF 
DDO <U: ACTETT> 
23,30 SAY * i 
ORE T TO U:NOMEN 
WHILE Us: XCMEN 
®2 6,35 SAY ' 'GET M: NOMEN PICTURE : 
U XXX XX XX XXX XXX XX NKXX! 
READ 
IF $(M: X\CMEN, 1 1 = tts 
OR. $(M:NOME Bol ="t ¢, 
-OR. $(M:NOMEN,3;1) =" * 
@ 23,30 SAY *' NO BLANKS IN FIRST 3'; 
+" POSITIONS! 
ELSE 
STORE F TO U:NOMEN 


ENDIF 
ENDDO <U: NOMEN>D 
a 2s, 30 
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RELEASE U: NCMEN 
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oar! MaNUN PEGTURS "XRXXXXOOAKXXXXXXX'* 
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BOENO 2, 1) 
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O BLANKS ALLOWED IN UIC! 


Ores 
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sooner TOsUsDOCT 
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OUT OF RANGE! 


BE Papo 999 
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DO WHILE U:EPRC 
@ 12,50 SAY "EXT PRICE $! 
Se mreeetmoar VMcEPRE PICTURE '999999999.99' 
IF M:EERC >= 100000000 
aap e330 SAY ' EXTENDED PRICE OUT OF RANGE! 
STORE F TO U:EPRC 
ENDIF 
ENDDO <U:EERC> 
ENDEO <U:UPRC & U:EPRC> 
RELEASE U:UPRC,U:EPRC 
STCRE T TO U:ORG 
DO WHILE U:CKG 
@ 13,35 SAY ' * GET M:ORG PICTURE 'AAX'! 
mueeenelionG, 1,7) =" '.0R. $(M:ORG,2,1) = ' 
@23,20 SAY * FIRST 2 POSITIONS MAY NOT: 
+" CONTAIN BLANKS! 
ELSE 
STCKE F TO U:ORG 
ENDIF 
ENDDO <U:ORG> 
Seo, 20.SAY * 
RELEASE U:O8G 
ior 126 OG ert 
STORE T TO U:9Q 
DO WHILE U:90 
d 14,35 SAY ' ' GET M:090 PICTURE 'X! 
IF M:090 ='2' .OR. M:090 ='4t ; 
-CRe M2090 ='St (OR. M:09Q ='7!; 
-CR. M:090 ='9' .OR. M:090 =t ! 
STORE F TO U:90 
ELSE 
® 23,30 SAY ' OUT OF RANGE! 
ENDIF 
END DO <U299> 
@ 23,30 SAY ! 
RELEASE 0299 
ENDIF <M:COG = 9Q> 
@ 15,35 SAY ' ' GET M:SCROTY PICTURE '999999! 
READ 
®@ 16,35 SAY ' ' GET M:SCR PICTURE 'XXxX! 
READ 
STORE T TO U:DOC 
DO WHILE U:ICC 
@ 17,35 SAY ' * GET M: DOC PICTURE '9! 
IF M:DOC < '1! .OR. M:DOC > '7!8 
®@ 23,30 SAY ' 1 THROUGH 7 ONLY! 
ELSE 
STORE F TO U:DOC 
ENDIF 
ENEDO <U: DOC? 
a) a3 SAY 
REL aes U:DCC 
®@ 18,35 SAY ' ' GET M: VLC PICTURE ‘A? 
@ 19,35 SAY * * GET M:CR PICTURE ‘at 
®@ 20,35 SAY ' ' GET M:DEF PICTURE '99! 


IZ 





READ 


STCRE T TO U:END 
DO WHILE U: END 
STORE ' ' TO U:REFLY 
Q 22,10 SAY '<CHQOSE> 1° CONTINUE  2- CHANGES; 
+ - 
Q 23,30 SAY ' 'GET U:REPLY PICTURE '9' 
IF U:REELY <> '1' .AND. U:REPLY <> '2' .AND.; 
U:REELY <> '3 
®@ 23,10 SAY 'ANSWER WITH A 1- 2 - 3 .CNLY! 
ELSE 
STORE F TO U:END 
ENDIF 
ENDDO <U:END> 
,10 SAY ! 
IF U:REPLY = '2!° 
STORE T 10 U:FIRSTPG 
®2 22,10 SAY ' 
® 23,10 SAY ' 
ELSE 
IF U:REELY ='3' 
STORE F TO U:FIRSTPG 
STORE F TO U:CONTI 
STORE F TO U:CONT2 
STORE F TO U:CONT3 
IF U:FILE = 'OPEN' 
STORE "1G! TO M:TYPE 
ELSE 
STORE '3G* TO M:TYPE 
ENDIF 
DO C:XDBHNEDLR 
RELEASE ALL EXCEPT C:* 
RETUEN 
ELSE 
STOKE F TO U: FIRSTPG 
STORE T TO U:CONT2 
STOKE F TO U:CONTI 
IF U:FILE = 'OPEN® 
STORE '1C' TO M:TYPE 
ELSE 
STORE *3C' TO M:TYPE 
ENDIF 
ENDIP 
ENDIF 
ENDIO <U:FIRSTPG> 
ERASE 


Peper Us END,USCOUNT, USFIRSTPG 


Seee* CHOICE ABOVE ALLOWS ANALYST TO ABANDON O8 TO POST 
aepe*e* CHANGES MADE THUS FAR 


mw DO <UsCONTI> 
Pee eaAsSE UsCCNT 1 


Meee. kEPEY <> '3! 

@ 10,20 SAY ‘RECCHD BEING PARTIALLY UPDATED! 

lc eumony & PLEASE STANDBY ; 
oer’ WRETe DATA TO CEENI/ZCLOSE1 AND RELEASE UNNECESSARY 
Meee * VARTAELES BEFORE READING OPEN2/CLOSE2 FOR FURTHER 


keke UPDATE INFORMATION 
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DC C:XDEHNDLA 
RELEASE M:COG,M:CAT, M: NOMEN, MN: UIC,M:UL,M:OTYDEF, 
error eens is bo. s DOCHO,M:DATES,M: REP 
HE PSCM, MiNUM Wi CE,MiSCR,W:SM / 
RELEASE M:09C,M:DEF,M: VLC, M:ACTPT, SCROTY, 4: DDATE 
IF U:FILE = "OPEN! 
STOFE '2E' TC M: TYPE 
ELSE 
STORE 'GEt TC M:TYPE 
ENDIF 
DC C:XEDBHNDLA 
ENDIF 
DO WHILE U:CONT2 
STORE $ We DITEM, 1,7) TO U: TYPE 
STORE $(M:DITEM, 8,6) TO U:SERNO 
STORE $(M:DITEM, 14,10) TO U:HASSY 
STORE $(M:DITEM, 24,12) TO U:SASSY 
STORE ' ' TO MSOVER 
keke DISPLAY FOR SECCND SCREEN OF UPDATE PROGRAM 
ERASE 
® 1,2 SAY ! NSN:!? 
@ 1,16 SAY 3(M:NSN,1,4)+' -'+$(MINSN,5,2) +'-'43 (MIN 
tt t+ $ (HENSN, 10,4) 
@ 1,55 SAY 'CASE NUMBER:! 
®@ 1,67 SAY M:CASE 
m2. 2 SAY ' MFG. PART NUMBER ' GET 
PICTURE "XX XXXXXXXXX XXX XX! 
@ 3,2 SAY § SERIAL/LOT/BATCH ' GET 
_ PICTURE "XX XXXXXXX't 
®@ 4,2 SAY ' ITEM N OR O ' GET 
PICTURE ‘At 
®@ 5,z SAY! DATE MFG/REP/OVHL ' GET 
PICTURE '99999' 
® 6,2 SAY ' ° OPN TIME AT FAILURE ' GET 
PICTURE 'AXXXX! 
®@ 7,2 SAY! GOV FURNISHED MATL ' GET 
PICTURE ‘At 
mee, 2 SAY * QUANTITY: RECV/INSP/STK 
PICTURE '999999! 
®@ 8,432 SAY '/' GET M:CTYINS PICTURE '999999! 
@8,50 SAY '/' GET M:CTYSTK PICTURE '999999: 
@ 5,2 SAY ' TY EE/MODEL/SERIES ' GET 
PICTURE '"XXXX XXX! 
@ 10,2 SAY ! SERIAL NUMBER ' GET 
PICTURE ' XXXXxxX' 
@ 11,2 SAY ! NEXT HIGHER ASSY ' GET 
PICTURE "XXX XXXXXXX' 
@ 12,2 SAY ' SUE-ASSEM BLY ' GET 
PICTURE "XX XXXXXXXXXX! 
®@ 13,2 SAY ! ESTIMATED CORRECTION COST ' GET 
PICTURE '999995999.99!8 
Amis, 2 SAY ? WORK UNIT CODE ' GET 
PICTURE "XX XX XXX! 
®2 15,2 SAY ! DEFECT VERIF - N/O/U/Y ' GET 
PICTURE ‘A? 
@ 16,2 SAY ' DEFECT RESP - C/N/S/U/X ' GET 
PICTURE ‘A! | 
®2 17,2 SAY STATUS CODE ' GET 
HESTATUSC PICTURE ‘AA? 
@ 18,2z SAY CAUSE CODE ' GET 
: MSCAUSEC PICTURE "A' 
@19,z SAY ! ACTION/DISP -H/I/D/R/0 ' GET 
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MeB@epror PICTURE *X° 
mee, 2 Say Meee §) CELT MSWNTY PICTURE ‘A! 
eet oeec ee Oat CODE § GST M:COSTC PICTURE ‘fA! 
Peele BCTLON CODE. GET M:ACTTKN PICTURE ‘Aad’ 
pei, z SAY ° RETORN CODE ee sR ETC 
per URE 9* 
CLEAR GETS 
ae, bONSAY | Mer RkR <N> TO SKIP §° 
mee, se SAY * § GET U3: REPRY 
REAL 
ae meee = ‘Nf 
Rens © TO: UsPAGE2Z 
Sean & POrUSCONT2Z 
SHORE £ TO UsCONTS 
ELS 
STORE T TO U:PAGE2 
ENDIF 
ameee, 10 SAY ° ' 
oe 22, 000SAY 3 : 
BO WHILE Us: PAGEZ 
exxKXK TNEUT MANUFACTURERS PART NUMBER 
Sees ny 86 fF 6 6GET UME MEFG PICTURE ‘XXXXXXXXXXXXXXXXXX' 
ero oe SF CRI Ms POD PICTURE ° XXXXXXXXXK' 
Slene £270 U sia 
DO WHILE U: ITEM 
cen eee atianiat tL BM PTCTURE ‘'A* 
Tinie “Nemec OR, MSLTEM = °O!' ; 
OR Seow eee = ' 8 
SCrraee §O Us iTed 
ELSE 
Ones, 20) coe Usman OR O ° 
END IF 
EMDEG. <2 LTE > 
Qe 25,50 SAY -% 
PelLEaoE US LIE 
i sere <> * ' 


eum eK THE NEXT FIVE LINES CALCULATE EARLIEST YEAR TO ALLOW 
KX FOR OVERHAUL ENTRY 


STORE $(C: JULIAN,1,2) TO TEMP1 
STCRE VAL(TEME1) TO& TEMP1A 
STORE VAL('10"') TO LOW 
STCRE TEMP12-LOW TO TEMP2 
STORE STR (TEMP2 52) TC U: TENYRS 
RELEASE TEME1,TEMP1A, TEMP2,LOW 
STORE T TO U:OVER 
DO WHILE U:CVER 
D235 SAY ' © GET M:OVER PICTURE '99999! 
IF $(M:CVER,3,3) > '365* : 
OR. $(MIOVER,1,2) < UITENYRS ; 
BOM « SEE site tists > Ue T 
@ 23,30 SAY "DATE OUT OF RANGE! 
ELSE 
STORE F TO U:OVER 
ENDIF 
ENDDO <U:OVEE> 
ENDIF 
RELEASE U:OVER,U: TENYRS 
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ENDDO | < 
@ 23 
1 tris 
STORE 
DO WH 
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Ree OU GO V 
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cero wee Gtn UslyPeE PICTURE XXXXKXX' 
Peete ee oat * * GET UsSERNO PICTURE "KXXXixn?. 
Peres oa et SO PGE TSA ooY PICTURE *XXXXXXXXxXxX'° 

@ ae? See Geers A oS YP ECTURE "XXXAXXXXXXXX'* 
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weer Ue one eUemAoottUSSASSY TO MIVITEL 
ee peer mis cool PICTURE *999999999 99° 
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ty 
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U 
sWNTY 


cy =e 


a7 





Eee o 
moc, SAMs Y OR N ONLY 
ENDIF 
pNDDO 
poses Set * 
RELEASE U: WNTY 
20,19 SAY ‘cost CODE ' GET MsCOSTC PICTURE avi 
@ 20,39 SAL ‘acTION CODE'GET _U: ACTTRN PICTURE ‘AAA 
pa, oS SAY GET MsRETC PpreTuURE "9" 
RE AD 
STORE T TO G:END 
DO WHILE U:END 
coa@pep' '.10 U: Rep 
jee 10 «SAY * <CHOOSE> 1- CONTINUE 2- CHANGE'* 
o7°P eaya' § GET .vU REPLY PICTURE oo 
IF U:REPLY 14! AND. U:REPLY Ne 
@ 23,05 SAL ‘ANSWER WITH Tone ccONLY = 
ELSE 
STORE F TO U: END 
ENDIF 
ENDLO <U:END> 
fee o> «6SAY CU : 
fem UekneLyY = i2e 
STORE T TO U:PAGE2 
@ e710 SAY : 
B® 23,10 SAY * ; 
ELSE 
STORE F 10 U:CONT2 
STORE T IO U: CONT3 
STORE F TC U:PAGE2 
ENDIF 
FNDLO <U: PAGE2> 
ERASE 
RELEASE U: TYPE, U:SERNO, U:SASSY, Js HASSY,U: END, Us PAGE2 
FNDDO <U:CONT2 os 


quekek START OF THE THIRD SCREEN FOR THE UPDATE PROGRAM 


ERASE 
DO WHILE U:CONT 3 


mek DISPLAY OF CASE DATA FRCH OPEN2 DETAILS & REPLY 


i, 2usey | NSN:! 
3 1,17. SAY $(M: SNais yy +t-t 45 Hs NSN,S,2)+'-'3 
+ (NSE eT y+t—t+ M: NSN, 10-4) 
2 1,55 SAY ‘CASE _NUMBS Rk: ' 
2 1,68 SAY M:CASE 
4.65902. SAY ‘DETAILS OF DISCREPANCY - FIRST 2 LETTERS! 
5 16.10 SAY ' ve eot BE WHERE DISCOVERED CODE" 
e 69°40 SAY ' ' GET M:DETALLS 
f f 4342 SAY ‘REPLY FROM ITEM MANAGER‘ 
5 44°10 SAY ' ' GET M:REPLY 
CLEAR GETS 
STORE ' ' TO U:REPLY 
332,10 SAY ' ENTER <N> TO SKIP & UPDATE RECORD* 
% 93°30 SAY ' ‘GET U:REPLY 
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READ 
ve settee * eve ils" 
meme? tO UsP RGE > 
STORE@® 10 U:CCNTS3 
ELS: 
peer ee 0 U:PACES 
ENDIF 
@ 22,10 SAY ° te 
+ ¢ t 


ReEK*X SKIP THIRD PAGE OF UPDATE IF REPLY WAS <ND 
DC WHILE U: PAGE3 


STORE T_TO Uz£ISCODE 
LO WHILE U:DISCODE 
28.10 SAY * ' GET M:DETAILS 
READ 
STORE 3 (8s DET Ages 1 ae Rees DLS 
USE Dz; WHERED 16S DEX’ D: DISCODE 
FIND &M:E 
IF # = Q 
bee 23,30 SAY ‘WHERE DISCOVERED CODE INCORRECT' 
E 
STORE F TO U:DISCODE 
ENDIF 
ENDEO_<U :DISCCDE> 
gues. 30 SAY 
RELEASE U: DISCODE 
@ 14,10 SAY * * GET M:REPLY 
REAL 
STORE T TO U:END 
DO WHILE U:ENEI 
STORE * * 10 U:REPLY 
@21,10 SAY eke KKK = CHECK PREVIOUS': 
rer ENTRIES ok hk ot 
m22,10 SAY ' <CHOOSE> 1- CONTINUE '*: 
+* 2= CHANGE ¢ 
@ 23,35 SAY ' * GET U:REPLY 
READ 
IF U: REPLY <> '1' .AND. U:REPLY <> ¢2¢ 
_ 23,10 SAY * ANSWER WITH A 1 OR 2 ONLY! 
STORE F TO U:ENE 
ENDIF 
ENDDC <U: END> 
@ 23,10 SAY ' 
IF U:REELY = '! 
STORE T I0 U:PAGE3 
ee 110 
@ 23,10 SAY ! 
ELSE 
STORE F TO U:PAGE3 
STORE F TO U:CONT3 
ENDIF 
ENDIO <U: PAGE3> 
RELEASE U:PAGE3,U:COUNT 
ERASE 


ENDDO <U:CONT3> 
IF U:RFPLY <> '3t 
: UPDATED NOW 


R 
Pevenn be = ‘OPEN* 
Suen 2c’ TO M:TYPE 
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alae 


BD CR PROG RAY 


3K KK KOK 
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eH HE ee HK KK A eK eK eee eK ee eK Re KK KK KK KOK OR OK KOK KE 


eK 
eK 
XENS 
Kae 
aX 
ate 
HE 
MEuk 
KH 
HK 3K 
OK 
oe 
mK 
KX 
Ke 
XK 5K 
3K 
"x 
HK 
KKK 
MX 
EE 
mK 
Em 
XK 
ae 


Date: 


Mcdule 
mn pu cS: 


Ou 


>; 18 December 1984 
Persion: 
Mcdule Name: CLOSEEC 

Mcdule Furpose: Close Current Case 
Interface Lefinition 


puts: 


C:WHO, Cs: JULIAN 
None 


Module Processing Narrative Description: 


Prompts the Analyst for the desired closing date 


to asSign to the case and then for the case 
numker. 


reads current values. 


The database is searched and 


transmittal and return dates assigned. 


then the case must ce u 
If dates are present, 


the 
SEOs 


ERASE 
meagre T TO CL:CLOSE 
Pee WHITE CL:CLOSE 
eek T 


mpts. 


Insures that thers are 


fee Wc 


=O 
By and CLCSE2 Databases and is marked 
deletion in the OPEN1 and OPEN2. 


Superordinate Modules: MENU1 
Surordinates 
Meencr : 


J.G 


Modules: XDEHNDLR 
- BOYNTON 


HK HK KK 


This program enables you to 


CLOSE A QDR CASE 


CUGe eens t t+ * * 


EC 


dated before closing. 

fF date the credit code and vendor 

liability codes must be entered in response to 
Th2 cas¢ 1S then written to i 


nic 


aa 


Me He EK ee ee eK a eK ke ee ke Ee EK OR eK i eK eK KK KK HK KK KK 


ok 
2 
toe 
fee 
ok 
Bee 
oe 
2 
a ot 
ok oe 
aK 
ek 
ok 
2k 
x 
ste 2k 
of 
of oe 
ek 
3 
oe 
oH a 
fe se 
xk 
se 


os 


1 - Continue 
27 Return to Menu 
EV DTEXT 
Perce et rO CLS REPLY 
eae SAY * * GET CL: REPLY 
DG@mwhpbeec Le REPLY <> *1* .AND. CL:REPLY <> '*2'° 
@23,20 SAY * ANSWER WITH A 1OR 2 ONLY'® 
20-335 Say © * GET CLYREPLY 
READ 
FNDDC <CL:REELY> 
ERASE 
IF CL: REPLY = '2'5 
RELEASE ALL EXCEPT C:* 
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RETURN 


ret Pot tort ret 


teeexe CLOSE CASE #*#*x' 


CIN 
Ord 
= 

HH bh 


Odor say *CLOSING DATE map DYY- =; 
GET LCOsCLDATS 


E=! i 
BE ALL EXCEPT Cr* 


ANAN MPHO 
ere ts 


Ord bi 


HPs 
Rr FRI RARIN OP es 


RANMA) ob} 
CRRRO MMs. 
ANQNAQAYS Freon 
@e be 48 be }-} eeee 
Otis 
OOOO Bee 


So os > foe 


Os 7s Ook 
. free © TO Cl: DAT ET 
Ce f. DALET> 
SAY '! : 
Pein not, cl Okie, @l- LOWDATE, CL: TEMP 
O 
C 


td 
tay 
bY | 
NOaAO 
ont 


UMBER 
ee PO UR mn 9 OX 
D3:OCASE1 


Oo 
Wom HI 'Otd 


Hyicgm ene 
MWHiNts 
alo —ti'r 
+O © 


Home WOM Il Mee 
= © 


SPR NONOO®*s ” 


O CL:AGAIN 


“ss ft be Mit niee 


W —hKO 


t 

t 

+ ero Nenu’ 

te Gilet eck: AGALN 


™ 


hy 


> AGA <>! 1% 
LEASE ALL EXCEPT C:* 
TURN 


HorMdOamiw NMOm Ont “Nhe ry 


4 
og 


ELSE 


feu 
mens F 10 CLoREPLY 
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That Case Not In Open File! 
Voteomume AgGdin 2-Ghe Return': 


Pune tO Chis FILLED 





ENDIF 
Teak 
Speco * TO CLIAGAIN 
Gee 2 2 “SY * mee CASe Airea cy 
a eee St i) 
GQ VWaee 2. SAY. * iO aveaGgaltn 2Z-To. ' 
Tenmecurn To Menu* 
ieee, 3 Seo. § § GET CLZAGAIN 
READ 
IF CL: AGAIN<D>! 1! 
Rooeeaohk ALL EXCEPT C:* 
RETURN 
ENDIF 
ENDIF 
Bree 
ENDDO <CL:REFLY> 
QmecOr eZ Say 
+ { 
@ 22,18 SAY ! 
4 1 t : 
De 2Zogeseoay . 
+! t , 
memes GO TO THE OPEN CASE FILE AND READ THE CURRENT VLC 
eee ANC CREDIT CODE : 
Soros GeCASE TO Ms KEY 
SEcre “38h' TC MsTYPE 
DO C:X DBHNDIRE 
SI CRE : MW siDeE Ss Veo) eto Ms.DDAT E 
Secon es sess, 6,5). LO Hs RDATE 
STCRE $(M:DATES,11,5) TO M:OPEN 
Seem © tis DALES,16,5) TO M:LDATE 
ShORm i (1° DAIES,21,5) TO M:SCRDATE 
Senn sens DALES ,26,5) TO M:IRDATE 
S2ORE 2 Me ees p Soll) LOM Se RIMDAT 
Sane RE Mo DAPeS. Jor) LON: CLOSE 
STORE 3$ (NM: DATES, 41,5). TO): REOPEN 
Pe Me RDATE =" ',.OK. MsOPEN='! mesons. ; 
M:sLDATE='5 Pao ke Ms REMDAT = * 
@ 20,20 SAY 'Key Date/Dates Are Missing.'; 
+' CASE ney Nor 
@ 21,20 SAY 'Be Closed Until Update Is '; 
+"Accemelisked' 
@ 23,20 SAY ' Press Any Key To Continue!’ 
WAIT 
E RASS 
®@ 10,25 SAY '***** Dlease Standby ****x! 
SLORG "16" TO M:1Ty Pe 
DO CsEBHMOLR 
SLOnge: TO CLs Fite 
EN DIF 


meee IF THE CASE IS COMPLETE AND READY TO BE CLOSED 
ies s FILLED 


oe O Ro. CLs VLeT 
DO WHITE CL: VLCTr 
Gmc, ZOmoeree VENDOR LEABILITY CODE ‘'¢; 
CiphmweiowyveLc PICTURE 'A* 


REAL 
Weer svLC = * 





eee ue, «6 TVEN DOR CODE MAY NOT *; 
+7 BE Bien * 
Boe 
Slonknee LO Cis VLCT 
Eeole 
ERED DO FSeL=VLCT > 
Oo 23,2080" * te 
+t ? 
Reel cao eee y Le 
SLORE Be 10 CLeCR 
BO JL Le CuUser a 
Dee Oss YEREDET CODE a; 
Gu CieCR 
READ 
LPreLi Grea. "ot 
Cae ema GREED LT CODE MAY NCT °; 


+ "BE BLANK * 


E 
=LORRS @ LO CL: CRT 
Eee 
END DO ReCL< CRT > 
Gaecio, 2 0 AL : 


RELEASE tt: CRT 


seme © 8 1O CLIREPLY 

a 20, 22 saan 1) 1 = CLOSE Gasneece= CHANGE  * ; 
te = EXT! 

@ 22,40 GET CL:REPLY 

READ 

emery = ' 3! 


4 


fone ALL SXCEPT C3 * 


FETU EN 
ENDIF 
IF CL: REELY = '1! 
ERASE 
@ 12,30 SAY 'CASE NUMBER! 
@ 12.44 SAY M:CASE 
@ 14,31 SAY 'IS BEING CLOSED! 
@ 16,30 SAY * PLEASE STANDBY! 
eee ee TRANSLATE IC:CILATE FROM MMDDYY TO JULIAN FORM 
STCEE VAL ($(LC:CLDATE, 1 ViMM 
STORE VAL (3 (LC: CLDATE, 3 V:iDD 
STCEKE VAL ($(LC:CLDATE, 5 ViYY 
DO C:OJULIAN 
STCRE V:JULDATE TO M:CLOSE 
RELEASE ALL LIKE V:* 
STCEKE M:CASE TO M:KEY 
eke&* DUT CLOSING DATF INTO PROPER FORMAT FOR STORAGE 
STCRE $(N: DATES, 41 5 TO M: REOPEN 
STCRE $(M:DATES,1,35) + M:CLOSE ¢: 
M:REOPEN TO CL: DATES 
STCRE CL: DATES TO M:DATES 
SLCRE Clee. Oey LC 
STCKE CL:CR TO M:CR 
STORE '1C' TO M:TYPE 
STCEE M:REC1 TO T:REC1 


DO C:XDBHNDLR 
*ee** CREATE RECORD IN CLOSE1 
STORE '3F' TO M:TYPE 
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F4bE1 
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Omi Wr 
OrdQ MHt4an4 © 
OBHMHWN OME 
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TOe@CETENTER 


T:CASE TO M:KEY 


XDBH NDLR 


C:XDBHNDLE 


Sue he 
per C 
DO 
@ 22,22 SAY 
+ 


FA fey IERIE 
U) eet Jee 
xao4qoO OA 
MUSA 
Ivy eH IOWM 
. rete tH O 
yO ae. 
HY itd fmEeU 
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4 2 
st oe 
oe se 
xk 
x 3 
xe 2K 


LOVEROVIDE A 
Meee RDS 1208 


PODULE INTERFACE CEFINITION 


eS ER Ra RR eK aK aK eK ak a ke ok aa a a aK Oo oR RK OK 
DBHNDLR 


% K 


HHHHHHHHHHHHHHHHHHHHAHHHHHHHHHHHEHHHHHHH HAH 
SMR I HH HH HHH IH HHHHGHHHHHHHHHHHHHHHHHHHHHHK 
‘9 
wit, ® Y) Y) 
wa C) ow . % to] fr 4 
Ow (r] & wfd e #10.) al{ & WY) HA 
wl) ee =m ORY xe) De- Sie CL) Y) eMAO 
e() My SS 8eOH Ame 29m Be © MHD fF eOU 
=, 0G fx (ee WH PING ce eet eHAID «& Ose UO FI 
Ame ew QS Ee Deer RY SSA MHAHY ()erWH dr 
SIRI] «+ Mb, oo COSI Ove Ht 4 cord fx, “hI~— Mai 
Os UAH et oY wa 3 e emit] eH = WY Au 
St 6 ff LH RY SS fee te ote YOhHAS Hee DP?” © 22. 8G DH E+ fy 
ee SOW YEH =F eH MI Olee wor ss =arryOQUE © 
SW eH O UR RAes sus! <aUHOQ at 
CC) mee St HHWA &4 wi cyes ees fH ™ ee Hem Fw 
HHS eeOMU) ce) HES »eOA Ay FQ ett Ta 
BiAyen > eI ee WME TOO we OF) ee OW) OANRDAIMD 
LOAM WY OWUXD (Decece wm nem fry ee SHH HOt eI 
(Dee coee( )% wee HH ee eo RS SHOUAS WA HORA, eaHe 
CoS SaeHI GS ett CO = ONAIA OH Oy AMOMONa 
= =m WH hy eat Omer e@QU) UW) HHO UO maf 
ee wee HA] 8 JW) = wht, OH oe oe 53 fy ee rh mA; QOAOW 
VOOR IIA EH ee ee BAe SIS Hitz Om YAWN 
22m eco QE NAUSE eee = WOHme ma aHO 
WAOUSe eSmreHy —=r4iO e MG ees & MY ZMHoOWHY 
wart © ecfxy HA © ee HO STIS UG AZZAM Are w 
"HAS A © MAVUA BHOeeBVNHYW ec OC) OnAmMYy Ww 
= Cee = —Qem & ec oot 41) eo) 9 Oly SHH MHHOAHWA ITY 
eos, wee (MS EIH es NSMBHOMAeRA =H H WO 
eS A= waa Oa © fy QOmMazOUrmkh HY mmany 
w eS MA & WH O Mee a) com> XZ Kt een, Heth St AD 


O CH woe eel WD eeL) UHOT Gee E1O ef co SI tM) H BOW 
OHOHOSINOWE KE eeDA US ees NG ae eG = 


col? ee OD L15-A ee SJeeree wl) ea mee OQ eg “rk O fy 
Slee reoZTO & wee ts BF) eI Siz ee wl) ~& ©OZ, cm HORA 
SIS eH SIE & OBA eH wa mbH MYHO Gm 
& eet WwW Se &* He eo) WME WNHW »® WF Ht hbdt4 
Ki & ee Om »& hi WU OCOWM sti mpeIOmokr CD tx <q “fu be] 
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MERE I A HR ee fe ea OK SK a ae ea eK Ke ee ee KK ee a OK Kk OK ek OK RK KK 


XUPDAT, 
E DATA BASE HANDLER 


XOPEN2, 
Eo 
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ME AK IK OK ok 


EIC.) 


mee CASE 


HK AK ok 3k 


CASE 
ay 


EK KE OK AK 


oe a OK OK 


MEK IK AK OK 


ak oe ok ok 
ek ok ok 
fea ok ok ok 


tore Gren! DALE BASE § 


M:TYPE,1,1}) = "1! 
(M:TYDE, 2,1) = "At 


"A" THEN ACCESS BY NSN 
IF ene oe Pee Bel 
STORE 'toSk’ Bis 
ESE 
'e* THo “ACCESS BY CASE 


Sipe e scr DSORENT INDEX D:OCASE1! 
ENDIF 


ee ee ee retort CATION TO SELECT USE FILE 


Sees. E 
yl = aps 


FOR DESIR 
PSD Se 


ae 


Biers it YPE,2, 1) = 'B!? 


he 


OPENT INDEX D:ONSN' TO H:USEFILE 


ee 
Os fy. TLE 


ii OUND R 
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VotiieeouronelSOR MENU 


ee ee a eee OO 


HK we ok KOK KK KK KK KOK OK eK RK aK Oe OK eK KKK KK OK KOK OK OK OK ROK ROK OR OK OK 
ok 3k ee 
ex DATE: 11 JANUARY 1984 +3 
#x VERSICN: 1.0 ek 
** MODULE NAME: SUPMENU1 eo 
*k MODULE EURPOSE: EROVIDE MENU FOR SUPERVISOR TO a 
4 ACCESS QDE SYSTEM FROGRAMS +s 
#* MODULE INTERFACE DEFINITION ak 
ex INPUTS; C:WHO. C: JULIAN #3 
oe OUTPUTS: NONE ek 
** MODULE PROCESSING NARRATIVE DESCRIPTION: as 
* 

4 THE SUPERVISOR ILS PRESENTED WITH A MENU OF 7k 
4k ALL PROSESSING CAPABILITIES AVAILABLE. AFTER ** 
x ONE IS CHCSEN, THE MODULE THEN CALLS THE ak 
a DESIGNATED PROGRAM INTO ACTION OR LOGS THE me 
7 SUPERVISOR CUT OF THE QDR SYSTEM “ 
** SUPERORDINATE MODULES: LOGON 3k 
xx  SUEORDINATE MODULES: MENU1,C-REASGN, UTILMENU,SUPRPTS, ** 
«x SUPRET2 3k 
#* AUTHCR: J.G. BCYNION +t 
sate ok ke ke ak ak ok ok ake ok keke ak ok ke oe ke ke of ok ao kK ake ake a ok ke oka ok ak ak ak ke de oka ke ak eo ok ok oe ak ok ok kK kek ok ok 
ERASE 


Boone -£ TO VsCONTINUE 
CO WHILE V: CONTINUE 
mes 6 §l6TClCUVS CHOICE 


TEXT 
WELCOME TO THE QDR SUPERVISOR MENU 

1 - MAIN MENU PROCESSING 
2 - CASE REASSIGNMENT 
3 - ANALYST WORKLOAD STATISTICS 
4 - UTILITY PROGRAMS 
5 - REPORT GENERATION 
6 - YEAR END PROCESSING 
7 — SORTEESDECTINGS 
8 - EXIT FROM THE SYSTEM 
ENTER YOUR CHOICE 

ENDTEXT 

@ 21,30 GET V: CHOICE 

READ 

IF V: CHOICE >= 1 .AND. V: CHOICE <= 8 

2 

DO CASE 
CASE V:CHOICE= 1 
RELEASE ALL LIKE V:* 
DO C:MENU1.PRG 


AZ 
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V's CHOMCE 


V; CONTINUE 
< FLEASE ANSWER 


=omeecLy > 


4 


wD A 


Eis E 
2 


CHCICE> 


e 
se 


BmDIE <vV 


sCONRENU E> 


ENDDO <V 
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IX. SUPERVISOR UTILITY MENU 


ee i aR 2c a ok Ra a a a Ro oe a 2 a a aK a a Ea a eo KK ok Kk 
# 

** Date; 16 January 1984 

mieeeversion; 1. 

ee Module Name: UTILMENY . one: : 

me Meduie Eurpose: Frovide Supervisor with menu of 


te Utilicy programs availabis to hin. 
Beeeocuie Interface Lefinition 

ig inputs: CsWwHO, CsJULIAN 

eK Outputs; None 


** Module Frocessing Narrative Description: 
a 2k 


x Displays menu of all ea programs avail- 
XK able to the superviscr. Calis th¢ appropriate 
Bx pregram after user selection. Additional level 


at of Security required for packing Data Base. 


** Syuperordinate Modules: SUEMENUI 


“me Subordinate Modules: ANALYST,PASS,COGUPDT,ADDRUEDT, 
7 me > PLATGEN,COGCNT ,UTILNDX,DBPACK 
i Authcer: J-G. BOYNTON &€ R.G. NICHOLS 

He aH a oR a a aa a aK aa a eR EK KK KK KK RK 


oes © LO USCONTINUE 


**X*XX Display Options Available To The Operator 
TO WHILE U: CONTINUE 
ERASE _ . 
OeO,25 SAY '***x** Dtility Processing *****x't 
Gece co oaY '1 - Analyst date’ 
@ $+1,29 SAY '2 - Eassword Processing' 
meer i,zs SAY '3 = COG Update!’ 
@ $+1,29 SAY '&Y - Address File Update! 
feet, 2? SAY '5 - Internal Statistics Update’ 
Meee bezo onY ‘6 = Cog Count! 
®@ $+1,29 SAY ‘7 - Ee-Index Index Files For The Systenm' 
@ $+1,29 SAY '8 - Clean Up The Database (Pack) ! 
®@ $+1,29 SAY '9 = Exit To Supervisor Menu' 
soong ° "TO U:REPLY 
Pe ine tY GEENUSREPLY PICTURE ‘9° 


*x*xXX Accept Menu Selection 


DOpWetih wus ws eLye< §*1¢ ££ @R. UtREPLY > '9! 
OF 23,5258) fh nter 1 - Only' + CHR (7) 
@ 19,40 GET U: REPLY PICTURE '9!° 
READ 

ENDDO 


kkee*X Call Routine Necessary To Perform Desired Function 


DO CASE 
Geos USREPLY = '9' 


eo 


#% 
kk 
xe 3c 
# 
sk oe 
we oe 
sk oe 
42k 
wk 
HK 
sek 
of 2c 
4 oe 
ek 
He ok 
se oe 
42k 
Hk 
x 3c 
xe 2k 
of ok 
ak 3c 





Pee Aleks Us* 
agen a tN 
G2e5 Gaeee ny = "1" 
Der CeANALYST 
CWEE WOEREPLY = *2" 
Use 2 a OS 
Omer USREPLY = °3° 
BPO €:COGUPDI 
CASE UsREPLY = ‘4! 
DO Cs ADDRUPCT 
@aot UsREELY = *5° 
DO CISL ALGEN 
@mse UsREPLY = *6° 
wee: COGCNT 
Meee USREPLY = *'7' 
eek Display Warning To The Operator 
FRASE 
@ 1,25 SAY '***** Data Base Reindex *****x! 
@ 3,24 SAY '* * * * * KK RK KK KK K KOK HK 
®@ 4,24 SAY ** cae 
®@ 5,24 SAY '* WARNING a 
@ 6,24 SAY '* eM 
@ 7,24 SAY '* This fFrogram Will Delete *x 4 
peor) oa en nigex) Fables and Then apes 
® 9,24 SAY '* Will Re-Index All Files ea 
@ 10,24 SAY '* P oa 
@ 11,24 SAY ** Tf Existing Files Are x 8 
@ 12,24 SAY ** Large, Thzs Could Take Son 
BD io,24 SAY '* Hours FY 
@ 14,24 SAY '* ob ad 
@ 15,24 SAY '* * * * * * KK KK OK KR KOK K KS 
@ 17,24 SAY ! Are You SURE You Want To! 
mise 24 SAY § Conc inue’ 
@ 19,24 SAY § <Enter Y or N>! + CHR(7) 
sense ' *' TC U:REPLY2 
®@ 21,40 GET U:REPLYZ 
READ 
*eKXX Accept Response From User 
DG Wugele ! (Us REPLY 2) <>'Y' AND. COE REE EY SS S20N 
gees ,32 SAY "Enter Y or N Only + CHR (7 
@ 21,40 GET U:REPLY2 PICTURE ‘A! 
READ 
EN DDO 
Garon 32 SAY ' : 
@ 17,40 SAY : 
eke ACcept and Verify Password Before Executing Request 
Peer PLYZ = *¥y' y 
@21,30 SAY tinter Your Password ° 
SeOnr. * ' TO U:PASSWORD 
See CONSCLE OFF 
RECEET TC U: PASSWORD 
Seer CONSCLE .ON 
IF U:PASSWORD <> ! ' 
Stes DCHeODE ENDEX D:TECH 
FIND &C:WHO 
IF PSWD = U: PASSWORD .AND. # <> 0 
DO C:UTILNDX 
Eo 
Pees, oes ehoGcuest ABORTED —- Strike '; 
+'Any Key To Continue! 





WAIT 
ENDIF 
ENDIF 
ENDIF 
CASE U:REPLY = ‘'8! 
BO Cl U5 FAC: 
Bae CASLE 


*E*XKXXK ENE CF PROGRAM 


i t 


X. USER REEORT MENU 


-7T 4 e 


BE CRE KC KK OK IK eK A I eK OK oe He eK Oe oe eK I OK I HE ER KK EK OK A OK EK 


eK 7K 
** Date: 11 January 1984 * x 
ee Version: 1.0 os 
**x Medule Names RPTHENU | ed. oe 
meeemccule Purpose: Allow analyst to receive a listing a 
zz Cai weteron. Open Cases. ne 
** Mcdule Interface Definition ee 
x Pipes: Cr:¥HO, C:JULIAN mE AK 
KK Outputs: None ae 
- Module Frocessing Narrative Description: a 
x Menu is provided in order to select a listing ** 
eo cf open cases that belong to the Analyst % 
KK making the request. If report listirg is _ me 
He chosen, then module OCASERPT is called. Exit ** 
po Be. TtO Ceturn co i aah 
ee Supercrdinat2> Acdules;s MENU eK 
** Subordinate Modules: OCASERPT ae 
ve Auther: J.G. BOYNTON i 


ME SEA AK SKK He ee KE Ke eR aE ee ee A EO CE OK KE IE EE EE HK OK KK KK eK 


meome + LO CsTRUE 
Deewaiith C: TRUE 


ERASE 
eoer § * TC V: CHOICE 
rox 
xeKKX QUERY REPORT -AVAILABLE HE KK A 
1 - Openfile by Case 
2- Exit 
EMecormL Our Choice 
BAOTEXT 
ae oO CUGET V: CHOICE 
READ 
ad V:CHOICE >D= *' 1' . AND. Vz: CHOICE <= "2% 
DC CASE 
CASE V: CHOICE = ‘1° 
DOW C2OCASERPT 
CASE V: CHOICE = '2' 
Srorne F TC C3sTRUE 
ENLCASE 
ELSE 
? < Flease Answer With a1- 2 ONLY >! 


we 
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Prheos ANY KeY TO CONTINUS'! 
WAIT 


13 





WE ME Ae ee oe aK Ke a RO Re EE RK OK OR RO OE IR ROK OE EK OO OK KOK 


3K 43k 
xe Date: 15 January 1984 KA 
** Version: 1. hoe 
** Module Name: SUPRETS. | a 
** Mcdule Furpose: Frovide Supervisor a menu of a 
“ available reports. ie 
** Mcdule Interface CLefiniticn es 
Hae iaputss GawnO, C>JUL Gan 1 3K 
43K Outputs: None ax 
e Module Frocessing Narrative Description: a 
*% Disrlays a ménu of available reports and Paces 3K 
He Superviscer tc chose one or return to SUPMENU1. oe 
* Weekly and Menthly reports are directed to thes se 
+e printer. Categoryl and Extended value reports aE 
*% are created in text files on D: drive and may bs ** 
*% rrinted by Seed the file using standard = 
* cpérating system functions. All reports should % % 
aK Peprun only dupingueteGre”® hours due to their aa 
= larce amount of résource utilization. oe 
** Superordinate Modules: SUFMENU1 x 
**x Subordinate Modules: XXBWSTAT, KXMNSTAT,CATIRPT, EXTVAL ** 
- Buenot: J.G. BOYNTON a 
He fe ok ak 3k ake op a a ke oe a a a ak ke akc ak oe ake a oe oe ake ak af a ke ak oe ake ok oe akc ok ake oie ak ak of ke ak ak fe ak akc ok ke akc ok fe oe ok ka cok 
ERASE 
Some 2. LO V:CONTINUE 
DO WHILE V: CONTINUE 
SET TALK OFF 
eee §§ «6©§ «TC V3 CHOICE 
TEXT 
WELCOME TO THE ODR SPECIAL REPORT MENU 

1 - Baweekiy Statistics Report 

2 — Mentnily Smetastics Report 

3 ie Saco ae iL Report | | 

4“ - Extended Value Report 

a eee cen Sipe EVasor Menu 

‘ Enter your choice 
ENDTEXT 
mm, co CELT V: CHOICE 
READ 
IF V:CHOICE >= "1" AND. V:CHOICE <= "5" 
ir MeO tCe arate ORM oOrO mena — 2% 
@ 3,15 SAY '** YOUR PRINTER MUST BE TURNED ON AND‘; 


+' AVAILABLE **! 
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SAY ! PRESS ANY KEY TO START? 
SAY ' 
V:CHOICE= 4" 
RELEASE ALL LIKE V:* 
DO C:XXEISTAT .PRG 
V: CHOICE= #1 
RELEASE ALL LIKE V:* 
DO C:XXMNSTAT.PR 
ViCHOICE= "31 
RELEASE ALL LIKE V:* 
USE D:CEEN1 INDEX D:OCASE1 
SET TALK OFF 
STORE 0 TO P: COUNT 
S@ORE © TO Ps TOTAL 
SET FOFMAT TO SCREEN 
ERASE 
SET ALTERNATE TO D:CATIRPT 
SET ALTERNATE ON 
? ‘Tate; ',DATE() 
? i eK KK ODR'; 
+' CATEGORY I REFORT se He ak a 
? CASE # EXTENDED PRICE'!; 
. OPEN LATE coc 
STORE 0 TO P: PAGE 
STORE 5 TO ROW 
DO WHILE .NOT. EOF 
STCRE P:TOTAL+1 TO P:TOTAL 
ie emma 1? 
? ',CASE,' BiG: 
; 1, $ (DATES, ii at 
STORE ROW+1 TO ROW 
SKIP 
STORE P:COUNT+1 TO P:COUNT 
IF ROW > 60 
ERASE 
2 CHR (12) 
STORE 0 TO ROW 
STORE P:PAGE+1 TO P:PAGE 
? 
oe PAGE ',P:PAGE 
? CASE # EXT! 
+'ENDED PRICE OPEN DATE! 
+! Sac. * 
STORE ROW+4 TO ROW 
ENDIF <PAGE IS FULL> 
ELSE 
SKIP 
ENDIF <NOT CAT I> 
EN DDO 
? 
? 
? 
? 
2 1 CAT 1 CASES:',P:COUNT 
ca TOTAL CASES:',P: TOTAL 
: 
2 3 ek kk END OF CAT!; 


Vo 
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CASE 


ROW 


STORE ROW+4 TO 
136 





peer PAGE [TS FULL> 
SKIP 
EN DDO 
= 
? 
? 
2 TOTAL CASES:',2?:TOTAL 
t 
iz : Me AK AK AK 3K GD VOr ots 
+" EXTENDED VALUE EEPORT AK XK KK 
2 Coe 
SET ALITERRWAT® OFF 
SET ALTERNATE TO 
@ Cas (7 
> CHR YI 
ERASE 
®@ 12,20 SAY * You May Receive Your Eceend edt 
+' Valus Report 
®@ 13,20 SAY ! D: EXT VALUE. ce 
Bh One SAY * Press Any Key To Continue! 
Griese 4- GHOLGE= 115" 
ERASE 
RETURN 
ENDCASE 
ERASE 
Stone T TO V: CONTINUE 
eens °* ° TO V: CHOBCE 
ELSE | 
2?" < Please Answer With 1- 5 ONLY D' 


Pree <V>SCHCICE> 
ENDDO <V:CONTINU E> 
Gees ENC OF PROGRAM 
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KIT. QUERY BODULE 


He eM Ae a A KK Ae a aK eA a Re A KO OK KEE EE OK OOK OE OR OE KE ER OK 


ste 
moe Date; 23 Nov 1983 
** VYVersicn: 1.0 

** Module Name: QUERY 


** Module Furpeseé: Free Format Query Against the OPEN 
> and CLOSED Data riles 

** Mcdule Interface Definiticn 

= inputs; CsWHO, CsJULIAN 

va Sucpucs: None 


*x Mcdule Frocessina Narrative Description: 


ex Accepts Seléction and Display Parameters from 
ae the user and generates the nécessary Data Base 
a Ccmmands tc extract the desired information. 
a Temporary files are created as the QUERY is 

ax being processed. These files are deleted upon 
mx €xiting. The user may either print or display 
-. the 2nrormation extracted. 


** Superordinate Modules: MENU1 
**  Surordinate Modules: None 


Ze Maenhor: RR. G. NICHOLS 


Ae Ke Ae ee KH oe RK Ke eA He eK A eK eK Ke Oe Re ee EO ee a EE ae eK Ke EK 


KEKX*X Display Menu Selecticn Options and Accept Response 


Pame COLCR TO 112, 6 
STORE ' © TC Q: REPLY 


ERASE 

®@6,26 SAY **** xx guery ProceSSing ***x xl 

®2 10,27 SAY 'THIS PRCGRAM ALLOWS YOU TO! 

@12,28 SAY ‘QUERY THE QDR DATA BASES 

Seetee se SAY *1 = Continue! 

@1/7,32 SAY '2 = Return to Menu!’ 

aie to SAY ' * GET C:REPLY 

E 

CLO WHILE Q:REPLY <> '1" .AND. Q:REPLY <> '2!5 
Geer eer AY ‘Encer 10 2 for Your Response'’+chr (7} 
Ouee, 48 SAY * *§ GET Q:REPLY 
READ 

ENDDO 


*xxkk*X*x Tf Response is to 
*XX¥*XX and Return to MENU 


st oe 
x 
# 
sak 
ste ok 
xk 
se oe 
4 x 
oe oe 
of 
oe 3c 
a ok 
oe se 
oi ok 
re 3c 
# 3 
He oe 
stk 
ok 
4k 
ee 
Xe 
2 2k 
oe oe 
#2 


wl, 


ee Release all Memory Variables 


a Sec ae. * 
ete ALL LIKE C:* 
REDTURG 
ENDIF 
xxx **X Allow User to Select Files to Run The Query Against 
meoke © * TC OS REPLY 
ERASE 
po,24 SAY * #** Query Processing Module ***! 
@ 16,20 SAY 'Select File(s) tc be Used for this Query! 
@ 12,25 SAY '1 = OPEN FILE! 
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» 14.25 SAK '2 - CLOSED FILE! | 

@ 16,25 SAY '3 - Merged OPEN and CLOSED File! 

@_20,40 GET Q:REELY EICTURE '9° 

DO WHILE O:REPLY<>'1" .AND. C:REPLY<>'2' .AND.O:REPLY<D>'3? 
oe Ze, 20 SaY SEntry NUST Se Vy Pees Oo CU CUCHR (7) 
2 20,40 GET Q:REPLY PICTURE #98 
READ 

ENDDO 

@ 23,28 SAY ' 

STORE 10 TO O:CNTR 

STORE "Q:L' + STR(Q:CNTR,2) TO Q:LINE 

DO CASE 


eKKx*XxX Tf OFEN File Is Selected Indicat2 0 File Selecticn 
Saoe OfREPLY = 'T1'° 
mice 1 £O ONE 

SLCRE *O* TO Q: 

exeXX TF CLOSE File Is Selected Indicate C File Selection 


aoe G2REPLY = '2!° 


eIrcne {1 TO Q:NFFASSES 
meens °C" TO OSEFLILE 
Set OPEN File Ts Selected Indicate 0 File Selecticn 
eeKKK and o cate Two Passes Required For Execution of 
KEKXK Generated Code 
Owe, CSREPLY = §3°' 
STCRE 2 TO Q:NFEASSES 
meeene "O" JO OFSFILE 
ENDCASE 
come * § TOC O:SELCMCT1 
meme § § TC O:SELCMI2 
Seoer "OO" TO Q: SELECT 
Peon 0 TO C:ITEM 


Soe start Loop To Accept Selection Criteria 
Peeeeeite Os: TTEM <= 4 .AND. QsSELECT <> '58'5 


ake ee Display First Screen of Menu 


ows moeCe = *O0' 
SeseneeNt MENU - 
ERASE 
feeaiuesnt 'ENter Solecction Criteraa For This Query' 
me 2,20 SAY ‘(A Ma Ximu D cf 5 Items May Be Selected) 
@ 4,0 SAY -_- ae ee a 
- © ww mw wee oe oe ew eo ew = oo ow ow ow ww ee ow oe ewe ow oo oe we ee ee ee 
@ S,0 SAY "Data Elements! 
Doo ,2e. ony oS ' 
* SlieGeron. TO 112, 2 
@ 3,27 SAY * 58 End Element Select! 
Qos ear" 59 Abandon Query’ 
e Ser ecerge £0. 112, 6 _ 
a seo oaAy ft! 
@ G25 SAY *!° 
8 Geol SAY ' 1° 
®@ 7,1 _ SAY '01 Case Number! 
Sete 2e SAY ‘'! #11 Origim Code’ 
@ teow say *! =$<2l interim Repor’ 
® 77/1 SAY ‘t Bate 
Wee ast ie 02 Cog’ 
@8,25 SAY '! 12 Type Document! 


wg 





Om eg eBeea@ eeHeB OHBMHLH OH HWOHHVOHOO2Y9 HOS 


fh wa OF 
awd 
Cn 
rd 
+> = 
<= mo) = 


cn 
OW wn 


Grigin Prep Dai 


—4 
= 


uw 
St 

13. Disccvery Daze 
23 Document Number? 
Categor 

i4, Date Received! 
24 Repcr Gorm 2 * 
Number ! 


= §OMO SAAN NFL SFeE WW NAM HOOOCO ~« 8 


9 N) 


Nomenclaturze' 
Open Date’ 
FSCHN* 


=C> a @O)> 2 @ ~c> = s00( jee 


W— 
cS KRG REG 


S 


es =** @2 &@2 &®& @ & & 
mm 
W— 
< 
-+ 
=@©O 
tj «= 0 Ome ome I ene wa] wee i ora se (fips)eees 


=“ % 


Response Date a 4 
Bee Code’ 


-+ 


one. C7" *=©9 
—" 
OOds ~)-)3595 OOH 
E \-t- 
Ck 


NO aN GN Gh 


—_ (7 
Roe 


een e! 
evyeebernecrent  i!'; 
ren Date : 

ed Price’ 
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UO UO UO UO UO UO OY U) UO U 


9 


POmOso Eel) 


ENCCASE 
Display Selection Relations and Accept Relationship 


and Initial Search Values 


ire. onl rer <> ' OO 


OK AK IK IK 
ME AK AE KE OK 


Geese ecrT<>'3s0' . AND. ; 


~AND. 
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eK OK OK XK 


KK KKK 


fete ek of 


KK KK 
KK KK 


KH HC OK 


KK KK 


Ossie EET <> *58° 
Slee oor rei + | TO O:siITEM 
FRASE 
STCRE ' ' TO Q:SELECT 
@ 06,0 SAY tkelations a - Include D- Exciugs* 
Gmee esc SAY 'C"> Range Cee ere ec 
eee) SkY * 2 = Nee Eel . - Dees Ther ‘“~ 
eee eet 
ele. 10 SA Ye™ Tater Relationship HOmeselect yon !' GET. ; 
Oss 5CT BPeereRE '.A* 
READ 
Validate Entared Value 
Pemaeon § (Of oer net a tA JOR. !(Q:SELECT) > ‘Gt 
See OS eee eee SCN SNL as Dispiayec *'; 
+ "Above (A - G)' + CHR (7) 
@ 10,10 SAY ‘Enter ke lationship moO se heectza2On -': 
GETVeO2SOELECT PICT ‘A* 
READ 
ENDDC 
@ 23,18 SAY * iv 
+ & ¢ 


If Range Selected, Accept Two Initial Values 
18 Cs Lely .= 64 


$ Ga 19° SN TI TO sENLEZ 
SAY ‘Enter MINIMUM Value Allowed * ; 
AD Gvimorrrrm@rty PTCT &G6O:SELPIC 
@ 16,10 SAY ‘Enter MAXIMUM Value Allcwed ' ; 
Goro t2 PICT &0:SELFIC 
READ 
Ensure That Values are Properly Ordered 
LY Cel Tit ae “fhe 
SORE Oo: tytd OO. Sue 
SOR © Si INrTe TO OciNer 4 
STO Ri, O sobs teeog os DN t2 
RELEASE C:TEHP 
Neer 


If Character Field, Flaces Quotes Around Initial 
Value (s) 


lee @eC HAR 
STORE We eE (OEE EEO cen LO, OSINLT1 
monn ' Vet (Osb Nar) +8" TO OC: LNIT2Z 

Pos 

rermat Numerics to be Characters For Code Generation 

STORE ESE. at aeons PVECh tO Os INITIT 
STORE O:INITIT TO’ O: INE 
Sue) herent Z2ZeOoNR, OSs DEC) TO Q:INIT2T 
Sl@ne Of INETZT TO QO: INIT2 
mogerao nt ClLNIT1£1, Q:INIT2T 

ENDIF 


Form Partial Ccmmand Line 
Pe eg a SeLenr = * 


TORE Oi SELITEM +! > "+ Q:INITI+". AND. +0: Sco RDN 

ies Poems TO ¢O:SELCMD 
imac ou LCi. ~All. tOsSeLITEN+!>*+O: INIT; 
+ Sooo. eo tie tos INIT2 TO &0:SELCMD 





ENCLIF 
CLE 
eeeee Accep= Seiection Values For Query (Singles Values} 
eee ee oe ete Values for Selection ' GET; 
Col teer etch ces oELPic 
READ 
teexeex Tf Character, Flace Cuctes Around Initial Value 
IF eae 
tORES oS (Ocmeeuajet§ = TO OsINIT 
ELSE 
exe Format Numerics to be Characters For Code Generatzicn 
STORE STE(QsINITI :N DEG) TO Os INITIT 
STORE Br iNeett TO’ OS TENET 
RELEASE Q:INITIT 
Eye ir 


*kXX*X Form Partial Ccmmand Line 
xxx** Command Line Formation Uses Indirect Addressing to 
eXKKXK PDecint to the Lccation Of the Command Line 


**¥X*X* Tf A Previous Line Has Feen Created, Join Together 
eeKKX With an AND 


If oO: SELEMD >. tae 
WOREee € Sabet tweet. © TO GOsSELCMD 


ENDIF 
DO CASE 
CASE ae coe = "At 
LOR neocons Gta n treme’ ='+O°ITNIT1 TO &0:SELCMD 
CASE !(Q:SELECT) = "Bt 
SlOR nc emotes Tent’ <>'+O: INIT! TO &0:SELCMD 
SA! (0: SHZECL) eo p* 
Son (eee eee nea rye  ='tOs INIT! TO &Q:SELCMD 
CASE Ae eae = "g 
STOR Soro gen Oeste t’<>"fOs INIT! TO &0:SELCMD 
CASE !(Q:SELECT) = 'F! 
STORE Es seen l= Ceo et *<'t+OsiNIT1 TO &SO:sSELCMD 
CASE ane LECT) = 'G'! 
Poors eos Hil eet’ >*tOs INIT! TO &OsSELCMD 
ENDCASE 
EN Ease 
Seen eee ot FO CSeSELECT 
EDIE 
ENDIF 
ON Daee 
ENDDO 
Zoe COLCR TO 112, 3 
noe Of aehr thn, OsSsBLPIC, OsCHAR, OS INITI1, O:INITZ, Q:NR 
Seon e F TC CsDAT&SEL 
Sone "CASE TO QO: FLDCMDI 
SeoRnm ‘CASE * TO Os: FILCND2 
eeoker ® * TO QO: FIELD 
seorn® 0 TO CsiTEM 
BEORE *O0* TO QO: SELECT 
Paamer 2 * £C.O;CHOSEN 
HK HK HK te ee oe Menu. to Allow Selection of Items 
*KkKKX TO Be Displayed - Displays First Screeén 
mee WolLs Of bums <= 9 .AND. Q3SELECT <> '58' 
Tf o; selrer = "00" 
ERASE 
@ 2,21 SAY ‘Enter Fieid Selection For This Query' 
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eerie Avex imum ct 10 Fields May Be Salected)' 
a@ 4,0 SAY eee Oo en ie 
fe ae ae oe ee oe ee we ee ew we ww ew we ww we we ow we we ee ee 4 
@ 5,0 SAY "Data Elements’ 
See SAY ty! 
* Soe oLOn Te 112,2 
@ &£,27 SAY *' 5€ End Element Select! 
@5,52 SAY *' 5S Abandon Query’ 
¥ oe Celer TO tiZz, 3 
me opod say f° 
fe Ope eaAY ‘'f' 
pecs leaAY *1 ' 
® 7,1 SAY 01 Case Number! 
feeeeew ony '! 11 Origen Codce* 
fees, §f Zi grin tse aim Reror' 
feel Say *'t Date® 
Mecel SAY ‘02 Cog! 
mmeomes SAY '! 12 Tyre Document! 
Meee ioAY *$ 22 Opigin Prep Date' 
Smee leonyY 'O3 NSN* | 
@ 9825 SAY ¢! 13 Discovery Date nl 
i) 62 DSCcument Number * 
@ 10,1 SAY *O4 Category’ 
PG, 25 SAY ft 14 até Received! 
Seem, ot SAY '! ge Report Contro' 
@ 10,71 SAY ‘1 Number' 
@ 11,1 SAY '05 Nomenclature! 
om Ul e2> SAY *! 15 Oven Date’ 
Pepe oAY ff 2b OCs 
Peele -SAY "06 GWmC Se Origin ' 
@ 12,25 SAY *! 76 Teansmittal Dats re 
+t 0 wie enteaete Nemhper' 
pe io, SAY ‘O07 Unitgoer tssuc’® 
®@ 13,25 SAY '! 17 IM Response Daté i a 
+! Fy G@eeait Code' 
@14,1SAY '08 Unit Price! 
Om mE, Z> SAY '! #8 Close Daze’ 
® I@,21 SAY '! 28 Sereening Code’ 
Peoples AY *O9 GOuecneteyepemcircep=. {'; 
+ §' 19 Reopen Date eee ees MIC * 
@ 16,1 SAY '10 Extended Price! 
Pe lopez SAY ' ! Screen Report! 
@ 16,46 SAY 'Date ! 30 Next Page of Elements! 
ST eee OO OOO Oo vs 
+ tow ew we ew eee wm oem @ owe ow ow ow ow ow ow on ww owe oe ew ee ee =e q 
exe**X Display Previcusly Selected Fields 
®@ 19,0 _ SAY ‘Fields Currently Selected '+ Q: CHOSEN 
Beas deo! eo eed owimimocm mn Ghr O;SELECT PICTURE '99° 
*xeeX Validate Field Selection 
DO BHILE eer Geen Oms time) > 59° 
®@ 23,26 SAY ‘Select From Above (00 - 59) '+CHR (7) 
®@ z1,27 SAY ‘Enter Field Number ' GET; 
O:Spprer Prerum:e *99* 
= READ - 
ENDDO 
MZ 20 SAY ° t 
ELSE 


xxxx* Display Second Screen Fer Selection 
ae eee ae = '30° 
RASE 


@ 2,21 SAY ‘Enter Field Seal 


Ec 
@ 3,19 SAY "(A Maximum c£ 10 


tion For This Query' 
Fields May Be Selected) ! 
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Dee eee es ~~~ 77 TTI IT II7777 iS 
Oe a ee we we oe ae ee we we ae we we ewe we we we a we we a ewe we ee 
a 5,0 SAY *'Data Elements! 
a Seca oa Es 
* Sh ee aan TC) 122 | 
Pe apc tec: 4 ooeeend Element Select 
i 3,558 so: 8 Seer Abandon Query* 
* 521 COLGe, TOMl12,.2= 
@ Shoe Siar. tet 
@ Gaz SAY. "ee 
@ 6,51 Sky ‘ee 
a ipl ok ' Sa cOmneaion ° 
@ I72er sak "8 Deficiency Ver Oe Ie 
+ Dome ceron Code* 
QS ple SAde SZ OS Defect! 
® €,2> SAY -.. ee Deficiency Resp hs 
+7 ' Oso ecst «Code 
om oleeSae “se wenendoen baad Code * 
@9,25 SAY '$! 42 New-Repair/Ovhl ae 
+ 2 Seeeeoea cus Code ' 
me l0nlgSay “St Wetier Point’ 
@ 10,25 SAY '! 43 Date Mig/Ovhl! 
@ 10,51 SAY '! 52 Cause Code! 
@ 11,1 SAY '35 Screen ay 
Bo ip 2> SAY eee eepn Time at Failure!'; 
te eeAemeron pas tn 
BR Ii2,la Sey," Se fe ec Code * 
@ 12725 SAY F! 5 me 
ee 12,5 | Son Y Seieeoe Bart Number’ 
2 |S, eee! VSteeOtateicy InSpected i!'; 
+ ' 46 Work Unit Code 1° 558 
@ 13/58 SAY Storsce/sacecn! 
@ 14,1 SAY '38 Quantity Received Cs 
+ ' U7 Discovery Coda 1 56t 
®@ 14,58 SAY ‘Def Iten' 
Oe lanl Sky ‘SoS Oteeerey in Stock t Jee 
+ '48 Return Ccde boro! 
De 5) psy te esd he eeaey., 
@ 16,1 SAY 'S8 End Element Select =['; 
+ §' $9 Abandon Query' 
@ 16,51 SAY "! QO Prev Page of Elements! 
@ 17,0 SAY Ferrers tere tet rrr ce ter rrr tert cette rce 3 
ea me ee a ae ee we ae we we we ee we we ee awe we we we ew we we wm ww ww we we ww 
OO lope eee om CuLeeonr ec wyeoclocted '+ 0: CHOSEN 
@ 21,27 SAY ‘Enter Field Number ' GET ; 
Oyomepecl PICTURE '99°' 
READ 
*ke*X* Validate Field Selection 
DOMNLeeee Soret 00" OR. OFSELECT > '59' 
@ 23,26 SAY ‘Select From Above (00 - 59) '+CHR (7) 
@ 21,27 SAY ‘Enter Field Number ' GET ; 
Och eh PLentm:, '99 ' 
READ 
EN DDO 
OD 2Zsyce SAY ¢ ; 
Eis: 
ex*xx Begin Creating Code For Fields Selected 
DO CASE 
*eeexe TE 59 Entered, Release All Local Memory and Return 
GMS Oe SELECT = '59' 
Hebe asr ALL LIKE Q:* 
RETURN 
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EK CHK OK Release Al 


Pea aeSt OS ALP mor eeS eye O- LITEM) O>Selitem, Oss coLClb, ; 
GrFLOCHD, QO: CHOSEN 

Meine oeNREASSES TO C:LOOrCNntTt 

exe ex Tf Eoth OPEN and CLOSED Meteoeare Selscted 

*¥x*x The Execution LIoop Will Be Run Twice 


CTO WHILE Q:LOOPCNT >= 1 
#xx** Select File Tc Be Used In This Query 


Romereer Lr = 'O' 
Semmes 6D s'+CsWHO-*CPEN' TO Q: TEMP3 


ELSE 
Sememr *Ds'+C: WHO-*CLOS! TO 0: TEMP3 
ENDIF 
eex** Generate Executable Code Te Perform Query Selsction 
eEx*EX Check to See If The Selection Deals With The First 
*xXXX*X Half of the Data Base 
omer CMD <> ¢* ° 
ipeeoeriLE = ‘Oot 
Sucks 'USE D:OFENIT*TO EOQ:LINE 
STCRE Q:CNTR + 1 TO Q:CNTR 
ae Oe" + “STR COriGn tae ee LO O2 LINE 
peers "USE D:CLOSEI'TO ec 
peeeres OS CNTR + + TO Os3CNTR 
eee TO. + STRGQwe NTR ci tO O: LINE 
Bererk *'D:'+C:WHOt+* TMP! TO O: TEMPT 
peueaee *CObyY TO '+CsTEMPT TO E0:LINE 
ieee srLhicmp! <> "CASE ! 
Siew Laie et be LD  * Fes PLDCMDI+" FOR '+0:SELCMD1; 
TO 60: LINE 
ELSE ‘ 
a Soe LINE+ * FOR fOcornCcupnl FTO &O:LINE 
SeecRE @SCNTR + 1 TC QO:C 
ie Boece +S (OSGNTR, 3y ate Or, Ts 
*xxxK*X Generate Executable Ccde To Perform Query Selection 
**¥X¥*¥*X Check to See It The Selection Deals With ee Secend 
Kxx**x Half of the Data Base 
me O:SELCHDZ <> ¢' ? 
reo. rl LE =. 'c* 
STCRE "USE D:OFEN2! TO SO:LINE 
Sipe Ge GNrRk + 1 TO Q:CNTR 
ae a foc COS USTRU(COSGCNTR, 2) hULO UO INE 
oC Mor. Ds CLOSEZ' 10 GO: LINE 
STCRE QO: CNTR + 1 TO Q:CNTR 
ne ren + Sango: CNTR Z)= £0 0: LINE 
Seger “Gi +OsWHO+*'TMP2' TOsds TEM P2 
meer: "COPY TO *+CHTEBMP2 TO &O:LINE 
ier oO: Fie Gmp2 <> "CASE ° 
Si Cmemoos iNet Shc LD *+GCSPLDCHDZ+" FOR '+0:SELCMD2: 
HOG CLINE 
Poe 
ENLIE oo; bigeee  FOR * +OsSELCM@'D2Z TO EQ:LINE 
£ 
er tS —oueRet | TC .0O:C 
Sob @u & 0: perry in tOscnln, 5) uo Oi; 1 DIE 


154 





oN ek 


u) 
a) @ 
‘cit 
Oud 
C) Pu 
tps 
43 
wW I 
$44) 
Dp 


mey 
C94 
H+ 48 
2t 4t 
I tt 


wd 
[x] 1x4 Ley 
H a a 
fry IH I+ 
ad dl 
fq eo ee 
WY © © 
<u wo a) 
OO) = 
° O O 
i 
Y Pry fry 
A fx PIA fA Frm fr] mq mm FN 
V wa Fae ea aO va) mo B.A mem A 
Mow! Hr FH {1 « H Mie HHe Ht 3S 
= Seti a Au ce a= de eee 
fH ee[r} cece eefr] e ee | eo f e ~ 
ay OA OO Ol] OG O} O- ON Cl Ff 
Cre rH w tH O Au Ay WY) 
CW Ori O On OF © Of OF O 8 
fad Eites FHO Eiee EA = AM Ae AH OC 
Om mm OW frm om - iy mM AO BIA 
Ot WOH me FeO H e+ BIA Ete F4e BHe : 
OHAN GN ZN ANNAAN ANODAZANIAZN A 
UO OU SHO sOU UHO © UO «+0 04+0 & & 
em 00 HH 9909 0G ee ME oem St] ee Gk) Me 99m 0° = 6 
ANOH CHEOH OH eOHZO OO e 
Zig B- ZA 2N BHO SH 2A ZA 
RGOUMUUAVINUYL *OOUUHOU UU OU - 
eR E41 fest kd eel Ed ee Sh tt ee Cl td ce tod eo lx{e-4 eolti td oe ° 
iH Ol OD OFT OF OO OOO CO CO CO oe 
Ny Mee MW Be a Mi, ah m@m@ A 
al +H0O+ H +HOl+ HOA+HO+E +H +H V 
H Nt NAH Nt NAH MOH WHA WHA WH 
AUMG+e GtOM+~ G+ G+ GWeHm+Hae |= 
Velie Ele PIE Ele SHRle & fie Me lee A 
HAMS He ASH ZAHA SHAAmHA OS 
TH4OO #eUO ee RIO) eNO 0eO eZ) ee) eek) eehkytyee =U) 
TVW? © e OND 0c COU) oe COD ee OF FO ee OX} ee OM ee OD 2 OOF 
ae a Ole @ Ole o@ Olle = Ove o 
) 
RHQ det ide QAI IPI a] lee 
bog On ngeg manag to AgagOanmAg Moai onmmion OO} 
NOVIWIVIO OVO VOVVOOYO VYUOOVAQOOVVIO VO 
SPHEHAHMHMAHHHHet HHH HHaHeeee Ry 
ONIN NMNNMNNUMNY NNMNNNNMMNMNHNHAH 
WY) 
fu 4 
tr bet 


Tener See Dig? 


'+0O 


TO 


Oo Rename F3 
ASE = 
"+0: TEME1-"'.DBF 


N 
R 


= 
' 
ek 
L 


fe 
CAS 
+ 
INE 
ie 
TR ( 


MW 
UY) 
a 
4 


LINE 


Gieco: LINE 
O@oO. LL! 
een 
Gas 2 Lt 
Or batt 

Pees LINE 

sLINE 
eos 
TO &SQ:LINE 


ama Oa OG 
Hw) AO Hee 
e 2N ZBMNHAMN 
SO) 2wOUK) ew OU «& 
OG 00H ecm oo, 
qgrOH COWS OlH 
A Zar AM 
mOUUMOUGEOYU 


TO &Q 
OT GNICR 


CN ERG) 
CLOSEZ" 


‘as a 6: 
wR + 1 FO 


OPEN2'* 
Sle © 


+ 


tt + Wt-4 
OMm+re m+t+OM+ 
kloie He mRbHe IO e*O 
Han mHHa2zH4 eg Cle 
FAW) eeWO ee E10) oe fx) 

U) ee OND ee OW) 9 CO 4 AI Af 


e Ole & Oe © Ole 10% 


wOoOO 
FO Fy 9 9 299 ee EEE 
0G 0G 04 0G 0G 94 04 05 0G OU UW) 
OVUVQDVOO0 00 
HHRMA Ab 
NMWNNMNWIM) MH 


ELWE 


TO Q 


CNTR 


Q 


D 
‘4STR (Q:CNTR, 2) 


abe 


; Eee 


POpocO .2 ENE 


LINE 
r 
LINE 


PoOmontbD £O 6&0 


) TO Q 
OQ: 
M 
TOMO 


C) at e 


KUOOHOUO OO 
OC) «G4 ce eo E4 eoft] G4 ee 
+m O'Ol OH OC 
2 JP oe MOTHS” 
ao OGfs, & 


Qa+-+ mtbtio+ 
= *He » He Hie 
Hm AM meee 
OO CTC) eeWC) ee KIC) ov 
PO ee CD ee OD) oe CO 
o- e Ole & Ob 


155 





fr, fx WW) 
i aa + 
€ -~ 4 oct 
“ | Fry 
— es ee 
: WY) oO W GS be 
CO 6 a rt ce a 
My CO) “4 O 1 
ae ° ©) fr4 rT — 
FQ WY) E4 ee 
[+ i PY mo © © - 
et o waa ty - q) 4 (2) Tw 
Cm tH Et ow fx, U) (D 
a fi [x] (2) J yooh] fx) Am ff 0 @ © U) 
- mo a mn on eo Fey cf UM & =r’ ro wo E4 Y) 
Hi He Fd Ho WH fH oO mam Aa eH KH K+oe KH Q) O W 
O 4 WH Ha HW G&G H Mn WwW ~) = r-] ©) fx om 6) 
E oo eee hd H- HOW O coe oo} se O = WV) O 
OY Of AR Of O A HH cr & BO CO COIN 4) qd) 4 oO 4 
fr. o> 4 ee eet Os Ow Ay 4-' HW AY fa Ay 
co Ei OC Etee EXX FY DHOBN =™N Di = Fifq ej O f-% Ol He tH mM 
e ~6¢ P4003 Om ~% Ct) = OW « eo BMG mm BM ¥) aM WY) oo w+ a 
ad oo 4 er) FH OO E4 oe Coe AG F4 ef + Hi— E41 mee F4 orf ew “7 se Tm | 
' aN 2© AN 24ANHAN AOR OH NAAN MmNOAN = yw oO Om a QO 
WN OU = WO eOU s VU = - = UnoOs YU «+0 WY wy W) -4 = mM 
iu oofls (Lp eof e+ eer im ec f(y ef OW POW = Sit ce eotiim eer co Oee © 
= OD BOW ORWHOH ew wEee HEV ee BWIHOHG OW ee OH E+ & ef, ~- EU HH 4 
[1 => (1 AN 2G A 2A OWN OC AR FH 2a & = TT ToT =m +% O 
\—= Hi OV BOVUAVLEZOU Wer’ OF ef ee OUHOU OV @) @ Q’r-t MH = iH =—7 
ceo F400 Of eesti ec FE ee Fy MO rH AG COOMF4 cc ce 4 ce ft] £4 eo As 4 b4 0 QI ZIN eam > 
1c Oo UO Off CH OC OFH UFH ++ O00 OW OC O ered AD OU wmAO0 es U}-Q 
WY + con ee Qe FE4 er Oe ” ee WY) ee — ee TU ™ IH” O eS ITY = AGP 9% Mm 
jw TM UW Gee i Me AM+ Am + 05 AShy O45 i vy oid +OlH + OH mS 
(IO Hit +tHiO+Ft +HO He cH] OA+HO+H +8 eer @Q) o> O Ae a m1 
y—~ HIE WM HH N+ WH Ne Was WEA We OW Ne NH Cr mY) PS ixKy-1-4 mOoOYU VO H+? 
sat + UOMmG+e— MH+ Qm+ vi e8 Y)U ee Him + + E41 + Wed oO HE EH oe SIE oe wy) 
I utrete roe Ete FHA PHOeeO MeeG BMHHe & He Mee © No tH WA @ ao oO Wo 3 
=e AeA Me Ole eB Ole HR AR mA aANHD Ei Wa, Ry Mt Orlin OW 
BACH) cee IU) eethl) es fra UL) ee fx Oe CL) oeWU) ee ft1L) ee uy) ee W) + ihe . uW) 
RGD oe WD Pe Oh eh OIM et OF RIRIEI GAMA M+ ee OND oe OD oe Ol Som NUOINO YW Ne +H +H GN ti ao 
Oa mood OOO H wOWOo Ay WAMmM+2m4+ —~-" =Or 
AIRE MAIPAEIFIAAM HAH AHRQ AAA oa O wo Fie flEie >t Ay 
MS (604 OB OQ Mme BUN MmOMNNANNMHWA GAG AME, i OoVvNn OV NwzWHAAZH OO ee» 
mo "OO OOQVQOQ0000@8 WY) AO WOOVDIOO000O fy zu Ele Fj BIWMO erful EH 
ie RR HW RHE 4 a ZH BAHAR O HF NYU EO UND ee Olt Ol ta 
HH OW) MNMNWNNNNNNNNNH bry HN NNNNNNNHNH © Ne W Ne Ole © Cle Mm ert 
fA if} a Vy IO QWytp <u WO WY) 
ity 2 Tits ee) 4b ted HU Aydieqdpdid 
1 bed t+ br hide Ol AG AG mAgmam mere CO MN 
2) a =O ZOOU0000 YO NM 
4 ahytt HH etHRO Kt PHAM HHeme fe & 
‘7 MrejMm HHOMNHO Kt COW” NM NH MNON 
AO KF AA KK CE ati ee 
mE Ht BAe HH fz aN OG 
WwW KHH ih KF tH Wt ia? 


156 


OEE = 
POreieeraz lat O O27 EMELINE 


F€egin Executicn of Generated Code 


HK AK IK 





ceo. ok CLINE 
ewe Soe ones ft 61 TOU SEX ECNTR 
e D 
eee + peewee C+ *ORDEN, DSF'+''" TO O:OPENFILE 
oO K E WEMEI Pst aCsBYO+ICLOS. DBF Cement EO. Os 6 pee rer. & 
IF FILE(&Q:CPENPILE) .AND. FILE (GQ: CLOS FILE) 
eee "Ds*tCs WHOt'CPEN® TO Os USEFILE 
Peete DS '*+C: WROFt*CLOS.DBF* TO QO: DELETEF 
Seereic £rlle & CS DELETEF 
BLS E 
ey ee pet ac. une, 
=e oo woe tC weer OPEN*® TO 0: USEFILE 
5 
oo ps’ +C Wiese GEOs* TO) 0: USEFILE 
ENDIF 
aexx%*%* Display The Number of Records S2lected and 
Beeee* Prcvide the Oftion of Hard Copy or Screen Reports 
i © eA CH 
GOTO EOTTCM 
BERASE 
@10,16 SAY # 
@ 10,22 SAY ‘Records Have Been Selected For This Query! 
Memeo cAY '1. Print Hard Copy’ 
ge io,20 SAY 2 Me To Screen’ 
MeeeeeweO SAY "3. Abort Query' 
mere 6 6hTC COS REPLY 
@20,450 GET Q:REELY 
READ 
Pome TLS cee *t See One Owens > ' 35 
oe 23, me ‘Enter 1, 2 cr 3°*+ CHRE(7) 
m 20,40 GET Q:REPLY 
READ 
ENDDO 
CTO CASE 
mie CSREPLY = ‘1° 
Sete RINT ON 
iebeoCtus EFLLE 
PO WHILE «NOT. EOF 
ERASE 
STORE O TO pa >; LINEN R 
DO WHlLe TI. BOF .~AND. Q3LINENR <= 59 
ae Y ALL FREED eQ: DISPLAY Oras 
STORE Q:LINENR + 71 TO O:LINENR 
ENDDO 
2 CHR (12) 
ENDDO 
Sel PRINT OFF 
Choe C:REPLY = "2° 
ERASE 
Wieeo O05 EFILE 
meet Rim £LEELD &0?: DIS HmAY OFF 
oe ee = '3! 
Meee rr PILE &Q:0SEFIL E+! .DBF* 
RELEASE ALL LIKE Q:* 
RETURN 
ENDCASE 
USE 
Peeve Ce vomrtLE+’, DBE’ TO Q:USEFILE 
ieeLilr FILE &0;:USEFILE 
PoLeAso® AEL LIKE QO: * 
RETURN 
xa END OF PROGRAM 
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XIII. STATISTICS GENERATION MODULE 


MEK I AK Ee KK a eK A RK OK Ok oe Ko oe KK eK A OK He OK KR OK OE OK KK He oe AS RK OK OK OK KR KKK Ko 


#2 ek 
xx Date: 19 Jan 1984 He 
**k Version: 1. ae 
*x Medule Name: STATGCEN . ee 
** Mcdule Furpose: Generate Ccunt of Cases in Eech tk oe 
ae Paoe-oetgeenase and Create Tine EA 
ark Pec oworecier= ccs a 
3k fk 
*x Module Interface Definition + 
x Invuts: None Xe 
* % Outputs: None oe += 
i Mcdule Frocessing Narrative Description: = 
3k 

wx Calculates the Time Span Between Operations oe 
*% euGrUpdacco tues rT ecHCODE Fil2 to Indicate thea ** 
he Number of Cases in Hach Processing Status < 
*k Supesrordinate Modules: UTILMENU eK 
** Surkordinate Modules: None *x 
= Authcr: R. G. NICHOLS a 


MK Fe Ae eK He He ee He KK KK He A OK A he he eK Ke 3k ok KK oe He i KOK OK ROK KK KK 


exe*X* Display Warning 


ERASE 
@ 1,19 SAY "'***** Statistics Generation Processing ****x! 
@ 3,24 SAY ** * * * * HK KK KKK KK KT 
@ 4,24 SAY '* coy 
ee aes SAY '* WARNING — 
Op Ogee SAY '* aa 
Dei get SAY '* TiteeeGeedman Will Read a 
ga S,24 SAY '* All Records While «Ot 
Sect SAY 6's PaO Cee ig ae 
@10,z4 SAY '* ie . x 4 
@ii,24 SAY '* mt ExXiSei ng teres Are a 
@12,z24 SAY '* Large, This Could Take 3 
fe lo ,e4 SAY *& Hours «x Ot 
@ 14,24 SAY '* wf 
@ 15,24 SAY '* * * * * *& K& KK KK K KOK OK KI 
@ 17,24 SAY ! Are You SURE You Want To! 
O Wo,2z4 SAY ! Continue’ 
Gao, ae Say at weeieect: Y Or N>* + CHR(7) 
moore © ©£€ St: REPLY z 
eee! Gl PS REPLY Z 
Pome boes (os REPLY2Z) <> *Y¥' AND. !(S:REPLY2) <> ‘N° 
Peeeoepoczeeoe ‘Enter Y or _N Only + CHG? ) 
@eet,40 GET SsREPLYZ PICTURE ‘A* 
READ 
ENDDO 
BD 23,32 SAY ' 
@ 17,40 SAY : 
kkke x Verify Password Prior to Beginning Computations 
Poon EPLY2 = ote ' 
@® z1,:0 SAY ‘Enter Your Password ' 
Seene ' me SF enoonOR Dp 
oi CONS CLE OFF 
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ey tye) ) = 1 


ee 
S$: CLOSDLAY 
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SRgoe DLAY 
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(S3Xi 
+36 
Ss 
= 2 

it 7230) - 
fro Ss 
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moe V AL (S(S 


) ae: 
Nise 
bebe: 


mene 999 TO SyYCLOSDLAY 


‘ T,3,3))-VAL(S(S: OPEN ,3,3)) +1 
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From Item Maneger Respon 


DPenmesenelLetces Transmit to It 


VATS (SS XM 

S :XMITDLAY 

STCRE GOS" LO SSRESPDLAY 
ime Span 


0 
eto 


ENDIF 


ENDIF 
ENCIF 


ENDIF 
Manager Response 


Calculate Time §S 


Calculate T 
Case Close 


KK AS KK 
KKK KK 
MH KK OK OK 
KK KK 





KKK HK 


tok ok ke 
fork ok xk 


KKK HE 
EAE AK AK OK 


EK AK OK OK 
KK KK OK 


ME EAE OK KK 


more VAL{($(S:C LOSE, 3 7h} as 
VAL ($(S:RES PONSE, 3,3))+1 TO S:CLOSDLAY 
ENDIF 
Calculate Time Span From Case Open to Case Closes 
fon ite Ol ere <© 8 (S2CLOSE, 3, 2 
is CB SfchosE’t ayYCPAL (S$ (6:02 2N, 1, 2)) = 1 
STORE VAL($(S:CLOSE,3,3)) + 365 - ; 
VAL($(S: OPEN, 3,3)) +1 TO S:PROCDLAY 
ELSE 
LE VVAL OS (S2 GLOSE, 1 Geno sn V2) )=2 
STCRE VAL ($ (8: CLOS Boy) +730 - : 
VAL($ (S:OPEN,3,3)) + 1 TO S:EROCDLAY 
Bese 
STCRE 999 "10 S:PROCDLAY 
ENDIF 
ENDIF 
Bast 
Seems helms © LOS, 3)) - VAL(S (S:OPEN,3,3)); 
+ 1 1025S -PR OCDPAY 
GN DIE 
ENCIF 
eeeree Cl? SECCNDARY 
See DSOrTEME INEEX D:QOCASE 
pace € Time Frame File With New Time Spans 
mea ReCOrd DOES NOt ExXast For a Cése, Create It 
PGS: CASE 
IF # = 0 
APFEND BLANK 
REELACE CASE WITH S:CASE,WHO WITH S: WHO 
TF S:DATECHG <> 'N' 
SHORE *9999" TO S2WwHo 
Pie 
ent LE 
ie SebALTECHG = ‘'N® 
Siler, 4 TO S:ASSIGNED 
SORE ' TO SsACTEVE 
ENCIF 
Chance Status From Active to Transmitted or 
Vice Versa 
ME SS2XMITDLAY > O .AND. XMITDLAY = O 
Sime oSschCTIVE - 1 TO S:ACTIVE 
ae Sc lLRanslity tt lO sean oal T 
mooeoteerrr DLAY = 0 LAND. XMITDLAY <> O 
STORE S: ACTIVE + 1 TO S:ACTIVE 
SEeORE S*2TRANSMITT —~ + TO S?2:TRANSMIT 
EN DIF 
Por 


Change Status From Transmitted to Responded or 
Vice Versa 


ieee neo FDL 
ORE 


ee 66 
iW Drie 
OND aes 
coset =D 


Mn 
aries 
OOrn 
mot NM 
rm 


S 
ENDI 
ENP 


Change Status From Responded to Closed or 
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ekeKX Vice Versa 
Peeseues oot 0 wan D. CLOSDLAY = 0Q 
Seen Ske oe CND  - ewes neo POND 
Seeee gs SO LeerD Wap 8: O Ss CLOS ED 
Erase 
oe eo oP eRe UO eA CLOSDLAY <> 0 
Se foe OD =~ tO S$: RESPOND 
Sent S7GEOseD +.1e8O S3sCLOSED 
ENDIF 
Ne 
*exxX* Update Time Span File 
Pemeercs CASBeWITH SSCASE,WHO WITH S3:WHO,MAILDLAY ; 
WITH S:MAILDLAY, XMITDLAY WITH S:XMITDLAY,RESDDLAY WITH 2 
S:RESEDLAY,CLOSDIAY WITH S: CLOSDLAY, PROCDLAY NWLODH Ss PROCD WAY 
SrLECT SECCNDAERY 
moms TeCHCODE ENDEX D:TECH 
**xX*X Urdate Techcode File 
Pon S$ WHO 
IF # <> 0 
REPLACE ASSIGNED WITH ASSIGNED + S:ASSIGNED,; 
reve Wie CTEVE + SSACTIVE,TRANSUIT WITH TRANSMIT ; 
fess SANSOM IT,RESPOND WITH RESPOND+S:RESPOND,CLOSED WiTH ; 
meee + 53:CLOSED 
ENDIF 
Coe dC 
seeer PRIMARY 
PEEBSCE DATES WITH S(DATES,1,45)+° ° 
SKIP 
eNnryO 
SKIP 
ENDDO 


*xee**X Release All Lccal Memory Variables and All Files 
eee YUsed During Prcecessing 


2 de PRIMARY 
fest SECONDARY 
Peoeeaoet ALL LIKE S:* 
KETURN 


eR KK 6©LEND CF PROGRAM 


to 





KIV. JULIAN DATE CONVERSION MODULE 


We A HK ee eK A ee eee ee i EO EK KK KOK AE eI EK OK EK IE SK OE RC OK eK KS ARP 


ek eK 
** Date: 18 October 1984 as 
Be Version: 7.0 oF 
** Module Name: OJULIAN . me 
** Module Eurpose: Ccnvert Date (MMDDYY) te Julian % 
me Mcdule interface Daertiniticn fae 
ae Pmopucs: ViNh,V: cone ae 
HK Outputs: V: JOLDATE mo 
4 Module FrocesSing Narrative Description: a 
HK Receives a date in MMDDYY format and converts a 
= Ze to a Juliaen Gate and returns the date to ao 
ee @Gacecalling E~logra mt. ee 
eK ek 
**  Superordinate Modules: XOPEN2 ae 
** Surordinate Modules: None ae 
oe Beaencr: J.G. BOYNTON ~ 


He ee Ae ee ae ee ie eK ee ee ee ee A eK KK Ke eK KK RO eK eK KK ek ke eK OK ORK KK 


TO CASE 


CASE V:MM = Q1 
Si@rc ViDD TO V:DAY 
fees Viena = O22 
SEOne VeDD + 31 TO Vz DAY 
Gron ViiM = O03 
Sterme VsDD + 53 TO V: DAY 
CASE V:MM = Q4 
STCRE V:DD + 90 TO V: DAY 
Cimon Vee = 05 
Si@mr v2DD + 120 TO V:DAY 
CASE V:MM = Q6 
STCRE V:DD + 151 TO V:DAY 
CASE V:MM = Q7 
STCRE V:DD + 1&1 TO V:DAY 
CASE V:MM = Q8 
STCRE V:DD + 212 TO V:DAY 
CASE V:MM = Q9Y 
STORE V:DD + 243 TO V:DAY 
CASE V:MM = 10 
STCRE V:DD + 273 TO V:DAY 
CASE V:MM = 11 
STCRE V:DD + 304 TO V:DAY 
CASE V:MM = 12 
STCRE V:DD + 334 TO V:DAY 
ENDCASE 
IF PE ne > an V:YY .AND. V:DAY D= 60 
Pe Vo NMN= OG ~AND. V:DD= 29 
spoke VeDAY TO V:DAY 
ELSE 
STORE V:DAY + 1 T0 V:DAY 
ENDIF 
ENDIF 
Sroke VSYY * 1000 + V:DAY TO V:JULIAN 
Seon e STRe@VeJULIAN,5) TO V: JULDATE 
RETURN 
**xxX* ENED OF PROGRAM 
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XV. COG COUNT MODULE 


eK CK Ke OE KK KK oe OK KK KK OK ie oR RO a A OE KK OK KOO OK AE OOK AS OK OK KOK EK KOK 


eK rt 
** Date; 8 Jan 1984 % 
** Version; 1.0 eK 
** Module Name: COGCNT #3 
** Medule Purpose: ou the Active Cases Assigned to a 
7s Any Gi. ¥en COG aK 
2k 43K 
** Module Interface [efinition x 
*% Popu-s; Ncne Ae 
= Outpucs: None a 
63 . . 63K 
a Mcdule FrocesSing Narrative Description: ee 
#* Indexes the OPEN1 File by COG and Counts * 3 
a The Number cf Cases Assigned To Each COG ne 
xe %% 
** Superordinate Modules: UTILMENU x 
** Surfordinate Modules: None 3 
= maerncr:s: Re G. NICHOLS oe 


EE RE KE CK a Ce I CA A Ae ae ee KE ae KK AK EE OK oe OK OK ee eK ie eK KE EK KK 


xexxX*X Display Warning Message and Accept Contins Réequesx 


BAS EF 
@e, 24 SAY ‘*#**** CCG count Erocessil Ag cree 
@ 3,24 SAY '* * * * 4 * & ee x et 
Ozu SAY '* sree 
@ 5,24 SAY '* WARNING * 1 
Deomez4 SAY '* ae 
me 2,24 SAY '* This Frogram Will, Read 
@ 8,24 SAY '* All Reccrds While = 
@  oy24 SAY '* Processing ae 
®@ 10,24 SAY '* — * 
g@4ii,24 SAY '* If Existing Files Ate 4 
@ 12,24 SAY '* Large, This Could Take  ' 
@13,24 SAY ‘'* Hours x 
@ 14,24 SAY '* it} f 
@15,24 SAY '* * * * * * * KH * K KK K KK KN 
@ 17,24 SAY ! Are You SURE You Want To't 
mio, 24 SAX ' Continue’ 
meio, z4 SAY ' <Enter Y¥Y cr N>*t + CHR(7) 
meerwee’ * ©£O CC3;REPLY<¢ 
@ 21,40 Ga CCl REPLY 2 
DO WHILE _!(CC:REPLY2) <> "YY" .AND. !(CC:REPLY2) <> ‘NI 

Quy 2 cont 6 Enter Y or N Only! + CHR(7) 

pec, 40 Gel CC:REELY2 PICTURE *A* 

READ 
ENDDO 
@mz5,32 SAY : 
®@ 17,40 SAY ‘ 
eee Prompt For and Accept Password Verification 
WeeCeshEPLYZ = ‘'Y* 

@ z1,20 SAY ‘Enter Your Fassword ° 

SECRk es LGC] ow 

“oven ocCLE OFE 

ACCEPT TC CC: PSWD 
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man 
td 
to 
C 
tH 
t+ 
HH 
a5 
td 
a 
0 
+t 


N 


Gee ROCESS ED* 
DB 
HI 


Y ‘ 
Peewee root NG «xs Ke ee 


= 
U 


. CCG STA 
Peek ek DC NOT 


fees CS BEL 
BP ESASE SJ AN 
INTERRUPT W 


X D:CCGCNT 


t= 


7 SBE 


C 
PCR#eO0 INT <> 0 


cc 
WY 
e+ HAMM eCHoth 


Ons # Or 


NCT. EOF 
Mae lO CCSCURRENT 
nemecCc sCOUNT 


rement Counter Until a Different COG or FEnd Of 
€ Foun 


A 


: mole SOF 
GCs 


Ne 
COUNT 
T SECONDARY 

* Update IM Reccrd 

SCC aeCURR ENT 

> ¢ 

EEAGS COUNT kITH CC :COUNT 


I PRIMARY 


Oh) 


US 
SELECT SECCNDA RY 
USE 


MeGEASE ALL LIKE CC: * 
RETURN 


seas = FNE CF PROGRAM 
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XVI. BI-WEEKLY STATISTICS REPORT MODULE 


eel Aina i i 


SK KOE EK Oe OK Ke KK RK OK Ke KO ke OK eK 2K OK Ke CK ie XK oe ee EK OK OK KOK KR a 
% ok KX 
*#* DATE: 27 JANUARY 1984 * 
** VERSION: 1.0 a 
*k MODULE NAME: XXBISTAT #3 
** MCDULE PURPOSE: CALCULATE EI-WEEKLY STATISTICS ee 
#k MODULE INTERFACE DEFINITION #3 
4 INPUTS; C:WHO, C;JULIAN ax 
+ OUTPUTS: ee 
#* MODULE EFROCESSING NARRATIVE DESCRIPTION: - 
ek ACCEPTS CLOSING DATE FOR THE REPORT IN MMDDYY ¥** 
* FORMAT. DATE IS CONVERTED TO JULIAN FORMAT EY  *#* 
fk CALLING OJULIAN. DATES FOR PREVIOUS YEAR AND #5 
#3 CLDFST YEAR ARE CALCULATED AND STORED INTO £3 
2% MEMORY VARIAELES. OPEN AND CLOSE DATABASES ARE ** 
*% SEARCHED SECUENTIALLY FOR ANY CASES WHICH WERE ¥** 
4% OPENED OR CLCSED DURING THE PERIOD IN QUESTION. ¥* 
% THE BIWKSTAT DATABASE IS READ FOR THE COUNTS ee 
#% OF THE LAST REPORT TO CALCULATE THE TREND, AND ¥** 
ex THEN THE CURRENT COUNTS ARE PLACED INTO THE 2 
# BIWKSTAT DATABASE FOR FUTURE REFERENCE. THE st 
4k REEORT IS THEN PRINTED USING THE COUNTS FROM ak 
em THIS PROCESSING. THE PROGRAM SHOULD BE RUN #3 
ok IN BATCH, DURING 'CFF' HOURS, AND ONLY ON THE  ¥*+ 
4k SPECIFIC DAY FOR THE CUTOFF TO KEEP THE TREND  ¥*%* 
4k PATA REAL. Sk 
**  SUPERORLINATF MOLCULES: SUPRPTS x 
**  SUEORDINATE MODULES: NONE % 
** AUTHCR: J.G. BOYNTON = 
Sok ek ef Kok ade ok ok keke coo ok ok otek ak ok ok tke a oe cok kc kc ak at ok ok ote ok cok ke ote ok ok ok kek kk kk 
xxx kx INITIALIZATION CF VARIABLES 

STORE ! ' TO BW:CURR 

STORE ! ( TO BW: EREV 

STORE ! ' TO BW:CID 

STORE 0 10 BW:CREC 

STORE 0 TO EW:CCLOS 

STORE 0 10 RBW:C9COG 

STORE 0 10 EW:CSECC 

STORE 0 10 EBW:PREC 

STORE 0 TO EW:SPIN 

STORE 0 TO EW: PCLOS 

STORE 0 10 EW:P9COG 

STORE 0 10 BW: PSPCC 

STORE 0 TO EW:OREC 

STORE 0 TO EW:OCLOS 

STORE 0 10 EW:OCLOS 

STORE 0 10 BW:09COG 

STORE 0 TO EW:OSECC 

STORE 0 TO BW: CRECC 

STORE 0 10 EW:PRECC 

STORE 0 TO BW:ORECC 

STORE 0 10 BW:OPFRR 

STORE 0 10 EBW:CERROR 

STORE 0 10 EW:PERROR 

STORE 0 10 BW: OERROR 
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GT Or © eH 
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og erly ye) 
WOH ein Sea iGk 
“eG eReCWwQAe 
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bed fed Fe} bed fe ted hd fd eet 
Mock magndegesh 
MODOD00000HW7 
REA He 
NUINMMNMNNM pS 


Seo 


HE 
E 
Mg 
5 


a 
WEE 
al 
R 


Dem ew rDAT E 


TO “EW: Ciee Sr 


= 


mn 
DO WHILE EW:CHOOSE 


SCRE 
STORE 
EFRASE 





VermmMminn A 


om bf Pd 4 


—“OOO00 


MmnNwWAM «+ «© © © @ 


[ry fy 
SBBCeCB RH 


BW sCURR, BW: PREV,BW:OLD 


eek KK ENTER THE CALL TO C:OJULIAN TO CHANGE MMDDYY TO 


wee JULIAN FORMAT 


pereelk, bu LL ime, BYSULIMIT 
TC EWeCURR 


SiChEe F TO PEW: CHOOSE 


" 


eee 
feo CALCULATE THE CATES TO BE SEARCHED FOR AND ASSIGN 


eerer THEM TO THE VAHABLES: 


DR, aN s LL RZ 


QO BW:PREV 
BW: OLD 


7 BW 


(ea RA ims 


4 
FCT) HOM — ss 
00 ff wo) = 
eK A EEM aa) 
MReTET AM an s 
oo pt 4 OG wf 
OFtHHOOMmMA 
FAM es ** HH OmH 
== OMO 
a0 MM Te 9 OU oe 
NH NN & ee = 
» OO ew» zaMmzAa 
XG mth“ — 
0G DH ND + 9 


ODE PG NG SE OE RILEY 
90 (1) 4 4 (LLL) AG Rd oe 
TO 7 oe 0 4 oe 09 (MQ 
eek He Be tool he Be 
~e>mMmMMNwWmMMry 
W—) 
Fo} Fx} Fd fy fx Fe] 2 xg 
AS Aa ne on Ag AG AG 
ODOOVVOCO0H 
ee lo ee 
NUNN MNW NW Aa 


A 
TERRUPT WHILE ° 


ALY Peeeewo eRe PORT IS BEING ‘; 
PLEASE STANDBY 
INTE 


Ser eDO NOT 
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+'EROCESSING ****! 
eke *e END DATE CHANGE AND ASSIGNMENT HERE 
USE D:OPEN1 


DO WHILE .NCTI. BOF 
STORE DATES TO M:DATES 
STORE COG TO M:COG 
STORE § (UrDATES , 1145} TO BW:ODAT 
STORE $ (M:DATES ,36,5) TO BW:CDAT 
TF $(BW:CLAT,1,2) = $(BW:CURR, 1,2) 
STORE BW:CREC + 1 TO BW:CEEC 
IF BW:CDAT <> ! 
STORE BH:CCLOS + 1 TO BW: CCLOS 
ELSE 
IF $(M: COG, 1, 1) = 19! 
STORE BW:C9COG + 1 TO BW:C9COG 
STORE BW:CSPCC + 1 TO BW:CSPCC 
ENDIF 
ENDIF 
ENDIF < THIS CASE IN CURRENT YEAR COUNT> 
IF $(BW:CDAT,1,2) = th PREV 
SPORE BWZPREC + 1 BW: er eRe™) 
IF BW:CDAT <> '! 
«pe lORE Pia eOS) 4 "4 TO BW: PCLOS 
IF $ (3 COG,1,1) = '9! 
vaee TORE EW:P9COG + 1 TO BW:P9COG 


Sete aeorGc + 1 TO BW:PSPCC 


fF 
wD Se ttieosew oh PND eEREVEOUS YEAR COUNT> 


IF $ (BW: CLAT, $ (BW:OLD,1 “2 2) 
TORE BW: COR St 1 TO BW:ORE 
IF Bis CDAT res 
STORE BW:OCLOS + 1 TO BW:OCLOS 
ELSE 
lE $ (Mz COG 1,1) = '9! 
a TORE BwSO09COG + 1 TO BW:09COG 


SEGRE EBWSCOSPCC + 1 TO BW:OSPCC 
EN DIE 


ENDIF 
BNDIF < THIS CASE IN OLD 


= + Il 


EST YEAR COUNT> 
IF $(BW:CLAT,1, 2)<>$ W CURR, 1,2) AND. ; 
$ (BW: CEAT,1, 2) <>$ BW PREVI 2) cAND.: 
$ (BY: CLAT, 1, 2) <>3(BW:OLD, 1, 2) 
STCRE BW: OPERR + 1 TO’ BW:OPERR 
ENDIF 


onl P 


ENDDO <SEARCH OF OPEN1.DBF > 
SS ee OR ei ier OPENETLE SEARCH, NOW FOR THE CLOSED FILES 
USE DSCLOSE 


DO WHILE .~NOT. OF 
sepOime DATES TO M3EATES 
BLORE COG TO aA: COG 





STORE $ (u:DATES » 11,5) TO BW:ODAT 
STOR $(H:DATES ,36,5) TO BH:CDaT 
I? S(BW:OLAT,1,2) = $ (Biz CURR, 12} 
STORE BH:CRECC + 7 TO Bw:CRECC 
Ue oeecoar 
STORE BW:CERROR + 1 TO BW:CERROR 
ENDIF 
ENDIF < THIS CASE IN CURRENT YEAR COUNT> 
IF $ (BW DAT, 1 2) = $(BW:PREV, 
TORE BW2PRECC + TO BW: TéRkee 
IF BW:cDAT <> ° 
STORE BW:PERROR + 1 TO BW:PERROR 
ENDIF 
ENDIF < THIS CASE IN PREVIOUS YEAR COUNT> 
IF $ (BHZCTAT, 1, 2) = S {BW OL panne) 
TORE BW: RECC | eer O Ed: *ORECC 
IF Bw:CDA 
SHORE. a OFRROR + 1 TO BW:OERROR 
ENDIF < THIS CASF IN OLDEST YEAR COUNT> 
SKIP 
ENDDO <SEARCH OF CLOSE1.DBF > 
STORE BW:C9CCG + BW:CSPCC TO BW:CTOT 
STCRE BW: P9CCG + BW:PSPCC TO BW:PTOT 
STORE BW:09CCG + BW:OSPCC TO BW:OTOT 
STCRE BW: OFRRCRtBW :PERROR+BW:CERROR TO BW: TERROR 
STORE '19' + : Ba: CORB, 1,2) TO BW:CYEAR 
STORE '19' + $(BW: PREV, 1.2) TO BW:PYEAR 
STCRE €19' + ${(BW:OLD,1,2) TO BW:OYEAR 
USE D: BIWKSTAT 
ST CRE TOTALS TO BW:SCTOT 
STCRE TOTALS TO BW:SPTOT 
STCRE TOTALS TO BW:SOTOT. 
STCRE ' TO BW:CLABEL 
STCRE ° ' TO BW:PLAEEL 
STORE ' ' TO BW: OLAEEL 
IF BW:SCTOT < BW:CTOT 
STORE: UP! TO BW:CLABEL 
ENDIF | 
IF BW:SCTOT > BW:CTOT 
STORE 'DOWN' TO BW:CLABEL 
ENDIF 
IF BW:SPTOT < BW:P 
STORE 'UE' TO BW:ELABEL 
IF BW:SETOT > BW:PTO 
STORE 'CDOWN' TO BW:PLABEL 
IF BW: SOTOT < BW:OTOT 
STORE 'UE' TO EW:OLABEL 
ENDIF 
IF BW:SCTOT > BW:OTOT 
STO 'DCWN' TO BW:OLABEL 
ENDIF 
STORE BW: SOTOT-BW: OTCT TO BW:OTRD 
SICRE BW:SPTCT-BW:PTOT TO BW:PTRD 
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NEW COUNTS INTO THE BIWKSTAT DATABASE 
ne TOT ALS. WL eee 
RoeenoE ALL LIKE BG@et= 


eRMAr TO SCREEN 
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wee END OF PROGRAM 
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XVII. MONTHL 
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TAaTisiics REPORT MODULE 


= a> 
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HK 
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KK ON 
HO 


TE: @ JANUARY 19884 
mouCN: 1.0 
DULE NAMES XXMNSTAT 
Peete unt OSE ech eeemA te eNONTHLY STATISTICS REPORT 
BULE INTERFACE LEFUNI TION 
Ne UTS: C:WHC, C: JULIAN 
OUTFUTS: NONE 
Mut se ROCESSENG NARRATIVE DESCRIPTION: 
ACCEPTS THE ENDING DATE AND THEN CALCULATES THE 
JUIIAN DATE FOR THIS YEAR AND THE PRIOR THO 
YEARS. THE CPEN AND CLOS& DATA BASES ARE 
PeeenenoD SCuUgNtEALLY TO FIND THE STATUS OF 
EACH CASE IN THe DESIGNATED TIME PERIODS AND 
CCUNTS ARE SUMMARIZED INTO MEMORY VARIABLES. 
Doin PROCESSING, THE REPORTS ARE GENERATED TO 
eee ROUNDERS ~THES ENCLUDES THE MONTHLY STATUS 
REPORT BY YEAR, COMMAND &KoY INDICATORS FOR 
SCUBRONT YEARS AnD Toe SUMMARY REPORT FOR THE 
CURA UeL DAs  ltuls SHOULD BE DONE ‘OFF! TIE 
Pee Soe Nene SYSTEM IS NOT BEING USED. OUTPUT 
Bom OLRECTED 10 THE PRINTER. 
PRG lol tT NGRGRNE SEG eRETREEVED IN D:MSBAD.TXT 
pert PING*® USPNG THE OPERATING SYSTEM. 
PERORDINATE MOLCULES: SUPRPTS 
EORDINATE MODULES: NONE 
THCR: J«G. BOYNTON 


x He 
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Stee AL 
SEGRE 
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AEA KOK XK 


SLORE 
STORE 
SLORE 
STORE 
SLORE 
SLO FE 
So RIE 
SlORE 
RELEAS 


KA K OK OK 


ove TO DsMSEAD 
1 10 Bis 70 W 


INITIALIZATION CF VARIAELES 


0 TO MS:CRCVD 

0 TC FS: OPTOT 

0 TO MS:CLTOT 

0 TO YS: OPERR 

0 TO MS: CLERR 

THIS SEQUENCE CALCULATES THE UPPER AND LOWER YEARS 
FOR INPUT AND IS BASED ON THE CURRENT JULIAN DATE 
C:JULIAN. MS:LLIMIT= YEAR MINUS TWO YEARS 
MS:ULIMIT = YEAR PLUS ONE YEAR 

$(C: JULIAN,1 2) 79 TO | TEMP 

VAI TEMP 1) TO TEM 

VAL #3) O LOW 

VAL(*1") TC HIGH 

TFMP1A-LOW TO LIMT 

TEMPIAtHIGH TO ULMT 

STR (TIME, 2) TO MS:LLIMIT 

STR(ULMT,2) TO MS:ULIMIT 

E TEME1,TEMP1A,LOW,HIGH,LLMT, ULMT 

INEUT OF REPORT CLOSING DATE 
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3K HE IK AK OK 
ee 3K IK 


se ott ak ok ok 
steak a ak ok 


HK AK OK 3K 
MEE OK OK OK 


KK KK 
KK KK 3K 


STCRE § ' 70 MS: EDATE 
STORE T TO MS:CHOO SE 
ERASE 
Doma tl Lows -ceetss 
@ 10,20 SAY ‘PLEASE ENTER THE CLOSING DATE=! 
a 11,20 SAY FOR THIS MONTHLY REPORT 
) 12 ,0mSAY § <MMDDYY> ' 
a 14,31 GET MS:EDATE PICTURE '999999' 
IF $(MS:EDATE,1 2). < 'O1' : 
-OR. $(MS: ELATE,1,2) >*12' : 
OR. $(MS: EDATE,3,2) < 'O1t'; 
,OR. $(4S: EDATE, 3,2) >'31? ; 
JOR eon. 2) < MS:LLIMIT : 
OR. $( SEDATE, 5/2) MS:ULIMIT 
Dis @ 23,30 SAY ATE OUT OF RANGES 
STORE F TO MS:CHOOSE 
ENDIF 
ENDDO <MS :CHCOSE> 
@ 23,30 SAY ! ' 
RELEASE MS: CHOOSE, MS:LLIMIT, MS: ULIMIT 
CALCULATE DATES TO BE SEARCHED FOR AND ASSIGNS THEM 
TC VARIABLES 


ENTER THE CALL T0 C:OJULIAN TO 
JULIAN FORMAT 


SIORE VAL Eipesep ean? 4¢3 
SeORE VAL(St(MSsEDATE,3,2 
BLGRE VAL (SUNSSEDATE,5, 2) 
ems sOJULIAN 

pu@ak Vig ULEATE TO MS:sCJUL 


LotomemsC ULATES THE 
Or Bie NONTH OF INTEREST 


STORE VA jel VsepD 
Bere. OUU 
BSIORE Ve ATE 


STORE 
STORE 
SORE, | 
> LORE 
STORE 


to = 


1 


Cy 


rr’ 1HG 


nts 


mM hare 


mlINMwomnNMh Ome 
waMn 
OOrkzrN 


mnths WM GH, 
OVS TES rm oe 
friee oe (rylvee 
arr —eit 
Ord od 
Crates oe fs 


Gitte ido toes ee ttre Gti 
<— 


CHANGE MMDDYY TC 


TO V: MM 
TO V:DD 
iO easy Y 


Beste bee Or LHe FIRST DAY 


10 OS Cue | 


mee CALCULATES FIRST DAY OF MONTH IN PREVIOUS YEAR 


STORE VAL 


ae. aC Ne 
Beye > OUULI AN 


S2.ORS VoJULDATE SS G NserauLt 
Sam CALCULATES ENDCATE OF MONTH IN OLDEST YEAR 


STORE VAL(S(MS:EDATE,1, 2) ) 
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STORE VAL ($ (HS: ED ATE 342)) TO V:DD 
STORE VAL(MS:OLDT) TO %: 
DC C:OJULIAN 
STORE V:JULDCATE TO MS:GJUL 
kuk** CALCULATES FIRST DAY OF MONTH IN OLDEST YEAR 
STORE WAL ( 101") TO V:DD 
DC C:OJULLAN 
STORE V:JULDATE TO MS:OJUL1 
RELEASE WS 2EREVT, MS: OLDT, US: TYR, US: TYR 1, MS: TY F2; 
RELEASE ALL LIKE V:* 
ERASE 
@ 12,20 SAY *' MONTHLY STATUS REPORT IS BEING : 
+* EROCESS ED? 
od, 20 Say PLEASE STANDBY ' 
@ 23,20 SAY '**** DO NOT INTERRUPT WHILE : 
+*EROCESSING **#' 
xk*x%* END DATE CHANGE AND ASSIGNMENT HERE 
ak*k**K SEARCH THE OPEN DATABASE 
STORE 0 TO MS:CO1 
STCRE 0 TO MS:CO2 
STORE 0 TO MS:CO3 
STCRE 0 TO HS:CO4 
STORE 0 TO MS:PO1 
STCRE 0 TO MS:PO2 
STORE 0 TO MS:PO3 
STCRE 0 TO MS:PO4 
STORE 0 TO MS:001 
STCRE 0 TO MS:002 
STORE 0 TO MS:003 
STCRE 0 TO MS:004 
STORE 0 TO MS:PTOT 
STCRE 0 TO MS:OTOT 
USE D:OPEN1 
DO WHILE .NCT. EOF 
STORE DATES TO M:DATES 
STORE $ (u:DAq 143) TO MS:ODAT 
STORE $(M:DAT 6°5) TO MS:CDAT 
ake IF CASE IS IN CURRE EAR 


fees (iS: CDAM a2) = 50s: CJUL, 1,2) 


TF MS :CDAT > BS s@70L 1 sAND. MS :ODA 
STORReis: Gaevpet 1 TO MS:CRC 


Beer echos LS STILL OFENSLE SHOULD BE IN THIS FILE 


T<M4S:CJUL 
VD 


Ik MS: CEA g=.' : 

TORE var §3 HSL ODAR 373. OV Sep al 
SICK Sino ODAT,3,3 OLN OD 41 
SOR cite SODAT TO V:TIMEN 
SIO vee, 5) LO MS:;TIME 
REG Eno a biveGink Vs * 

DO CASE 
Gist is Cine < '61° 





ENDIF 
ENDIF <@Aa 8 © 2 Sine 


kkk IF CASE IS IN EREVIOUS YE 
IF $(MS:CDAT,1, 2) 


IF MS2ODAT ->.% 
STORES: 


ekk*k* IF CASE IS STILL OPEN IT 
IF MS:CLDAT 
STORE 


b 


CASE 
CASE 


ENDCASE 
nD ee 


ENDIF < CASE OP ENED 

Beeee IF CASE IS IN CLDEST YEAR 
TPS (MS'2@DAT;, 1, 2) 

LP athSeODAT OA NS 


Sees CO + 1 TO 4S:Cco 
ieee, < § 127° 
Salem wsosCOg2 + | TO @S:cCOzZ 
MS:TIME < '381! 
Sens S2COs + 1 TO NS:C 
woo tia > 130! 
peOnrewns:COG + 7 TO MS:C 
ie tat CURRENT YEAR > 
AR 
$ (MS: PIUL, 1,2) 
[Pui «AND. MS:ODAT<MS: EPJUL 
Hor + 1 TO MS: ETOT 
SHegwue be ©2©N THIS FILE 
— ¢ t 
era ay NOY. Cp AT 
ito (tio: ODA T 5.3.5 3 } TO V:ODAT 
oun. —sveODAT TO VIETIMEN 
Pees bite Nes) TO OMS: TIME 
ALL LIKE V:* 
MS:TEiME < '61'° 
STORES MS?:PO1 + 1 TO MS:F01 
MS:TIME < '121!° 
STORE MS:PO02 + 1 TO MS3:EO2 
tcetine < * 181° 
STORE MS:PO3 + 1 TO MS: £03 
MS: TIME > '180! 
STORE MS:PO4 + 1 TO MS:EFO4 


Pimore ee RE VEOUS YEAR > 


Sis: OJUL, 1, 2) 
SO Or: 1) -asereN D 


STOnemrIofSOLCr + 1 10 MS;OTOT 
meer CAcCheTS STILL OPEN IIT SHOULD BE IN THIS FILE 


N 

tH 

O 

bo OO 
be FA Oot 


= a a 

AE Ae MST ODAR 3 23) Hh 
Pon os ODAT, 3,3 1 
Ome  —eaeveoobDArt TO Vs 

PeivemeLeeN, 5) TO MS; 
ALL LIKE V:* 

isa riie < "61° 
STORE MS:001 + 1 TC 
iostieme, < "121° 
SLOneeis:0O02 + 1 TO 
ioe « § 161° 
STORE MS:003 + 1 TO 
MS:TIME > '180! 
STORE #S:004 + 1 TO 


MS:ODAT<MS: OJUL 


srs CO 1 
WS) .COz 
Sis €es 
MS:CO4 





Case OLD ist 


DCES E 


iN 
AS. OPED ial 


am, § © 


oaN + 
= we CC) 
oeee Nun » 
e 6 oe ee tf) 
AAA +bi+ oe 
a ~~ 
QQ NAN 
e mS »e]) eX 
fx] e~ eer C) 
iat aN wl) weel™ 
NNN © HeHWMO 
mm & mee KG FO 
<< <7 » MRD ~“ee 


~e & oS MNO + Mtawnm 
HH [\<Qeew of + 53 
SpmD0M amuUWNNe 
MrmmAW Ueehie NO 
OMoO at Ont ~e H 
eee? eer~() - 573$9 2.69 + fry 
ANY eo No sae fu 
SSF NOM HS en O 
wae ST KOM eT ty} 
344A Mm ANWMM eMOmM FA 
IAN GOH t wrt kK 
YVVER SOWORtOHOe 
NNN ORR © & eO wen 
wm wool) Ae rete eee (WY 


CIFOR OG 4 S3 
QIOUIOH b+ hut 
se oe 20£-4F4U) Qe (Xe (0 (- WY) 
MMW Y 
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Pee reel 


HAA 


rig 


;4 


Pot. & 


ONS SE GE 
THE CLOSED DATABASE 


MS CPlOLetw il LO MS 


E 


R 
P 
2MDDO < WHILE NOT EOF IN OPEN FILE > 


eek START THE SEARCH AND COUNT IN 


ENDL F 
ee 
KI 


S 
> 
*eKKX JNITIALIZATION CF VARIABLES FOR CLOSED 


COC OCWMAAOUUOD 


Pe ee tO og C8 ee Fe se £6 oe &F og 
MYM VIMYIMYVIWVYIWM VY) 
A eu Ou Pu Ot BO PL PA 


OO0O000000000 
BRR Hee ReHOHH 


OODDODOOOO00O©O 


STCRE 


FA A A 
03 0% 04 94 04 00 04 0G 04 OG 
OVDVOVOVOO 
HoH eHHHGHE 
NMNNNNNMNNWY 


STORE 


CJ UL 


<MS 
io. US seen 


EOF 
no Bs bat fo 
mP & (MS: CLAT ie) = SG seeguL, 1,2) 
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USE D CLOSE 1 





Cass 
CASE 


ENDCASE 
ENDIF 


EN DoE, 
Be DiF <CaSE OF same D 


Bees LF CASE IS IN EEBEVIOUS YEA 
IFS @M1S3;CEAY, 1,2) = 

LF (SSeDaT > NS: 

SECn ne ls + ebL 


Pros Seva. < 
SEGRE Va 
SEORE Wa 
RELEASE 


DO CASE 
CASE 


CASE 
CASE 
CASE 
oe 


PNDARE 
ENDIF < CASE CLOSED 
foe’ CASE IS IN CIDEST YEAR 
Pees (US sCLaAt, 1, 2) 


Ig *f#S:GDAT > sa0g 


SLORE wis. Or 


ie MS 7e Dat < 


STORE VAL 


VA 
V: 
ST 
E 
E 


iia 
EOE 
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Slee to eC CLZ + 
eerie < "1681! 
PuOmenio:CCL3 + 
Booeeris > *100' 
Seems; CCLY + 


EN Tees CURRENT YEAR > 


R 
$(MS:PJUL, 1,2) 
Poon. . AND. 
OT + 1 TO MS: PTO 
>» e e 
L (§ (4S: CDAT S363 
L(3 (MS:ODAT, 3,3 
DAT - V:ODAT T 
(V:TIMNEN, 3) TO 
ieee en ck 
MS: TIME < '61! 
STORE MS:PCL1 + 
MS:TIME < 1121! 
STORE MS:PCL2 + 
MS: TIME < '181! 
STORE MS:PCL3 + 
MS:TIME > '180! 
STORE MS:PCL4 + 


Pode ee REV IOUS 


Dees Od UL, 142) 
L1._.AND. 


a a 
oH 
ero 


| 
ij 


© 


EO 
ro 
ee 


ae ah 


YEAR 


OT + 1 TO MS:O0TOT 
foe Chee TS CLOSED < TT SHOULD BE TO» BE IN THIS FILE > 
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OW 
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Hi r<.S 
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Pa aa tt a ft EO 
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© ee 
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TO 


ob wee eh 


sn 
Wn 
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i) 


aS 


MS 
4S 


> 


MS 
MS 
eis 


» 
C2 
ee 


(?) 
i 


(ar Ga 
C) 
a ne 

ee. a 


C) 
) 


See 


se Clan 
EySe. 
:PCL3 
s2CL4 


KOT 


mS;C DAT< NS; CJ UL 


sOeia | 
TOC 
7OCE3 
:OCL4 
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ome me oe eth THE OLDEST YEAR > 
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iy 
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cSeQ OG NAN &Z 
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ny eye] wmlif) wee 
NAN YU FHSS) 
= & Nee ee “eo 
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te ee eeFHEHUNOeOeC- Ce (UW) 
MNMNMNNWN 

St alt 

Nee! “a” 


RAtA 


fk, 
4 


Bones REE OR T 


CUlCP tie tO MWS: CLTOT 
MOUTH I Tes 


aS 


SKIP 
we DETERMINE WHICH 


i 
<0 EA mm © 
= = Mm H 
Ss TS JO. Cee 
= oS ee H 2 2 OO O 
O = HAH HF mom rm mem ef O a 23 
a 9-8 =a me DT HHO Mn & ee 
we tee Ne Of Of Ele Be Bie Ble Ste tee Ne 1 
—NNEM St HN SOOR OD rN ONKSAE! 
OBO DerOrDOOOZNOZTONOCOKB- &¢ 
- oe Oe Uo U) = Se Com Com =e FH eS Ow © 
O. a7 = 2. Owe wes 
wen WW WOUENZWONe HEN i 
- O OO & Ey % - 


NANGN NN NONHNAHN Siac 
a, eel we we eFi & a e644 e837 of] oO 0M 
See ewe ere OC Ner Her gageten= 
ew efo 8) St} ee aft] et 8D 8+ 0 ff) of) 
ASAIN Ae eS ARYA OUA eae wo 
BeH MWe etHOHDHDAeWMHOHOHA 
IEE ctl Pg cS cat ee cat Se ee a ee YY) AIO ea KD 
Ae Qe Re Ne Ae Qe Qe Re Ne Ne Ae Qe 
WwW we ww wwe wa eh lUhe! lh 

eejr) cor) eolxr] eolx) oofr) eojr) eotri solr) eelr] ceolr] eojr] tejrj 
09050104 02640010 0) 0) 0 0 0 0 1 
ZOROTODODTODBOBOBDOBOTOROZO 
“Et tt a eet 
£3 U1EF W113 MH NH WH FAH HH WHAM) 


ENCCASE 


Ps GG 
Dt bet Dt 
O MU 
ee e8 ee 
UUW) 
=} S54 


BoOo® 
Hee 


Pie, Ne 
IN ONG 
eve 
SS — 
ee & 


O uO 


CO5 
FO5 


SEES 
PCL5S 


004 TO MS 


aS 
POY TO MS 


PCL4 TO 


POs t+ MS 


OCASE 
PCASE 


003 + MS 
PCL34+MS 


OCietWs,O0CL4 TO MS 


MS 


CL2+MS 
O02 + 
Lo SO mtsS 
LietssPCLZ+NS 
PCL5 TO MS 
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1 See OZ + MS 
+MS 


S 


TORE MS:PC 
TORE MS3 PO 
TCRE MS: PO 





PiewoeoL 24S: CCLI+M 
Pte COZ + MS3CO3 
Sauoee ts LO MS:CCAS 


See SORMAT TO PRINT 
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fx} 
oo oD) 
—_~ © 
—N we 
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pr-je ™ 
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~<at~4 fx] 
TMH & 
mhtag 
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rtfy fl 
mit] ee 
ry Mm W 
O = 
Hawn 
Zim 4 eo 
Tite + 
Orjt e 
RlttiFoae \. fq oe 
Be4rmWDe Ex fy 
hl) M+ © 
NAAM LUNA 
=a HEIN ’ sles = a 
mH "aN WV) = 
HNHEI — wa & fy fr 
Me eltit4+ © WV 4 
MIO MHA = at oO 
Arcs AWetp Or 
eS ea trArz Ww WY) 
VO aM WY emad 
Jee D mHaU 
ere) QW OOHRO 
Ws {) Si ee) ee 
=—_— oe eeQN HW 
“tr 2) Ue Xie 
wm we & H+ 062 Fe Fi 
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UNNI NNWUIWN NW) WW) 


St Dt Ded et Det Det bet et bt Det bt Det et Dy 


Beh Sd Sts ed Ne et et cE ett El ct td ect ctl eth ca Ect ct ect ctl tt ctl ect ect 
EA ett et Kd WU UU) UU 071 0.07: 07.0: 0.00: WI.) 
UYU) WU) + UUW) 


NIN LALAGN 
NAAN =F 
se eee 


INM=SLINU) 


CEG ICICI CG) 


NWNOO 
oor sraNase 
NAIANS e& & we 
es ee & Ore ™ 
MEDD EK 


CT CTCIGCICIGCICIC 


I MAD LENO) COLN MAD UL) COL ™ 
SOYHASCHACMHASrMNTAeKeMSs 
se» e%& & & ® ®& & ® &®& & ®& & &® & & 
MII EE NHDDN THK OMAN 
TT ST UNEINON GONG 


ORCC GCIGCICIGIGCICIGICICIGCICIG) 


moms DATA FOR THE SECOND YEAR OUTPUT 


CLOSER; 


sPYR 
OPAL CASES * 
sPCASE 


HW 
sje Fle 


DoD 
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See NN MOM srt NW 
rm AIAN HAHM FHA tH HAM 
QDUDOMVOMVOMVONVO 
9 As Oy 7 Oy 9 FAY Oy A 
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UE TS ea TS ot US ect ca) ca ce et} eX ca! cx caf 
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CECT CIGCICEICICICICICICICIGCICIG 


ake DATA FOR THE CURRENT YEAR OUTPUT 
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2.7 Ae Su Et Oa DRI eS Pee | |6G wwe SIF BBVA HRVHVVQABV RS bu wer UV) OY Bie = 
eewee tt {Ky eeewew GH vte S32" FF 
DY Dab SD DDD bby ba baby babi bby by fy DAD bed et bt td et ed tt Dt og oe Dy + Ded be by De 
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DeplopeUNon ee RSCORDS WITH INVALID DATES, 
ter EEE: * 
Ooo cr Gos OEE ERR = 1 
Cee ee eee ne S HATH INVALID DATES, 
S Fite. 
dais ~oD SAVES CCLE RR 
(eee see. Oe OF REPORT? 
Bia Ai EON Ae eof 
SET ALTERNATE TO 
EJECT 
mee FORMAT TO SCREEN 
RETEASE ALL LIKES: * 
ERAS E 
gel URN 
Boers ENC OF PROGRAM 
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OPEN 


jc * 
‘wt led 


= 


> on 
Na 


q « 
? 


a Cs 
dus 


? 





eee le. 


SCRTED LISTING REPORT MENU 


WE A KK i OK a A RE OK OK i OK OOK RE NE AS KR AE ASK EK EOE OK AK EK ARR EK KOR 


KK * OK 
a6 DATE Z 2 JANUARY 1984 rate 
= VERSION 1.0 oe 
*x MODULE NAME : SUCHET 2 iia 
xx MCDUIE FURPOSE: EROVIDE MENU OF SORTED LISTING re 
an Ree etomc on THE SUPERVISOR ae 
Se MODULE INTERFACE LEFINITION ak 
Ker Pues s Cage, CyJUL IAN os 
= OUTPUTS: NONE =o 
BODULE EFROCESSING NARRATIVE DESCRIPTION: ve 
a brea os NeNUerOmeourmnytoOR TO CHOOSE DESIRED oe 
KK ReeORT. CAUSES REINDEXING OF APPROPRIATE FILE oo 
ax PemenobDuCcE CURRENT WVALUBS FOR REPORT GENERATION ** 
XK Peru oan se ston eu yO DS DRIVE AS A "TXT FILE ao 
ns POreLal enna C Choo. meond MAY BE PRINTED BY USING ** 
xX Pierre FUNG TECN TOF OPERATING SYSTEM. were 
—_ Eneictom@ ine ohCULD BE ACCOMPLISHED DURING ‘OFF as 
Pee Pee eri R LOD. aa 
mK aK 
BoeeoureRORCTINATE MOLULES: SUPMENUT a 
Bee UEORDINATE MODULES: SUPRPT!I,SUPRPT2,SUPRPT3,SUPRPT4 ** 
a -AUTHCR: J.G. BCYNTON ae 
MM AE AK ee eK Ke ok ER oe A Re ok KK Ke ee oe i Re Ae a Eo KK ok ok ak OK 2 KK ok ke eK Ke ok KK KK 
Pees t 10 CTRUE 
DO WHILE C:TRUE 
ERASE 
peeernes, © «8 § TC V: CHOICE 
TEXT 
3 eee SCRISD eo TEnGeRePORtS AVAILABLE oe 
: 1 = OPEN FILE BY CASE AND ANALYST 
2 - OPEN FILE BY ITEM MGR AND ANALYST 
a= Ceeieeieee sy COG, SUTC, OPEN DATE 
4 - CLOSED FILE BY CREDIT CODE, eno 
> = Exo 
PNT EXT 
ams, 40 CET V:CHOICE 
REA D 
ae F oe. = Volt) cANDes CHOUGH < '5* 
fee ok © THESE REPORTS WILL TAKE SOME TIME TO* 
eee con.) ' GENPRAte. Er YOU DECIDE TO CONTINUES 
q@4,20 SAY ‘ THs TERMINAL MAY NOT BE USED FOR ANY'* 
ete Oo eC Gamne -ROCESSING UNTIL AFTER !; 
tT COLE EON ° 
Cee eoure ht ool O ARORT, ANY OTHER KEY TO!; 
-" CONTINUE® 
WALT TO V:BAIL 
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XIX. CASE REASIGNMENT MODULE 


Ceres ee Tree ee ieee fas cee me we +e ee eee ee Oe wets avn areas tee age 


Be He KE eo ee KE A ee KE A OK aie ie OK Ee A Oe ie A OK Ke KKK A KK AK FC OK KO OK OK KK 


oF 3K 


*k DATE: 22 JANUARY 1984 rs 
kk VERSICN: 1.0 she 
**k MODULE NAME: C-REASGN ok 
kx MODULE EURPOSE: REASSIGN CASE FROM ONE ANALYST TC xx 
ok ANOTHER «x 
*k MODULE INTERFACE DEFINITION oe 
oe INEUTS: C:WHO, C:JULIAN a 
# OUTPUTS: a 
#* MODULE FROCESSING NARRATIVE DESCRIPTION: ee 
# RECEIVES THE CASE NUMBER AND TWO ANALYSTS TO BE ¥* 
a INVOLVED IN TRE TRANSFER. BEFORE TRANSFERING CASE ¥** 
1% THE CATABASE IS CHECKED TO INSURE UPDATE OF Kx 
so ANALYST STATISTICS. RETURNS FOR ANOTHER CASE TO } ¥* 
+e BE ASSIGNED OR FOR TERMINATION OF PROGRAM. ved 
** SUPERORDINATE MOLULES: UTILMENU se 
** SUEORDINATE MODULES: XDBHNDL2 # 
** AUTHCR: J.G. BOYNION +e 
mH He ae eK HK ok te He te ee ee oe eke OK kOe eK KE eK oe ok ee eK oe eK OK oe eK KKK OK eK KK KKK KK 
STORE T TO R:CONTINUE 
DO WHILE R: CONTINUE 
ERASE 
2 6,24 SAY '***** CASE RE-ASSIGNMENT PROCESSING ¥*#*#**! 
®@ 9°28 SAY '1 - RE-ASSIGN CASE TO ANOTHER ANALYST! 
@ 10,28 SAY '2 - RETURN TO UTILITY MENU! 
STORE ' ' TO R:REELY 
®2 15,40 GET R:REPLY 
READ 
DC WHILE _R:REELY < '1' .OR, R:REPLY > '2! 
®@ 23,22 SAY 'ENTER 1 - 2 ONLY’ + CHR (7) 
®2 15,40 GET R: REPLY 
READ 
ENDDO 
DO CASE 
CASE R:REPLY = '2! 
RELEASE ALL LIKE R:* 
RETURN 
CASE R:REPLY = '1! 
STCRE ' TO R:CASE 
FRASE 
@ 6,24 SAY ‘ENTER DATA FOR CASE BEING RE-ASSIGNED' 
®@ 9,32 SAY 'CASE NOMBEFR ' GET R:CASE : 
PICTUBE '999999Xx' 
READ 
STCRE ! (R:CASE) TO R:CASE 
STCRE R:CASE TO M: KEY 
STORE '1E" TC M:TYPE 
DO XDBHNDLR.ERG 
IF M:TYEE ='1! 
®@ 20,20 SAY 'CASE IS CURRENTLY LOCKED! + CHR(7) 
@ 22,20 SAY ' PRESS ANY KEY TO CONTINUE! 
WAIT 
ENDIF 
IF M:TYEE<> '1! 
IF M:TYEF = '9' 
@ 22,14 SAY 'CASE DOES NOT EXIST IN OPEN!; 
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oe fe ak ok ok a ake teak aca ok ok coke oe aK oR ke aK Koko eo ok ok ok KK ok ko ak ak KK ok aK ok ek 
ae XK "os 
xx DATE: 12 JAN 84 ae 
kk VERSICN: 1.0 tk 
** MODULE NAME: ADDRUPDT kt 
** MCDULE FURPOSE: ALD, UPDATE, OR DELETE ITEM MANAGER ** 
ak ALDRESS RECORDS sk 
Ke OK KE 
x* MODULE INTERFACE LCEFINITION x 
a 3k INPUTS: NONE 2% 
a a OUTEUTS: NONE oa 
xe XK XK x 
## MODULE FROCESSING NARRATIVE DESCRIPTION: +e 
a 3k ALLOWS THE ADDITION, DELETION, OR UPDATING se 
23k OF ITEM MANAGER ADDRESS RECORDS. CCEPTS THE ¥** 
a ITEM MANAGER CODE, VALIDATES THE BX ISTENCE OF ** 
ak ak AN IM WHEN CREATING NEW RECORDS, ALLOWS THE 2 a 
24k RECALL OF SERV TOU SEY DELETED RECORDS DURING a 
a 3 UEDATE, AND VERIFIES THAT NO ACTIVE COGS a 
+ ARE ASSIGNEL TO A RECORD BEING DELETED. . 
**  SUPERORDINATE MOLULES: UTILMENU a 3 
**x  SUEORDINATE MODULES: NONE a 
** RUTHCR: R. G. NICHOLS ‘ 
Me ake ok ok ke he ok ake ake 2K kk ake ok ake ake ok oe ak ake ok oe ok ok ok ok oie ok ake OK Kook 2K Ke OK ok kK ake ok ok ke OK ok oe ok Ke ok KOK KK OK KK KK KK 
STORE T TO A:CONTINUE 
DO WHILE A: CONTINUE 
teee% DISPLAY SELECTION OPTICNS AND ACCEPT CHOICE 
2 6,18 SAY '***** ITEM MANAGER ADDRESS PROCESSING ****x! 
@ 9,28 SAY '1- ALD ADDRESS 
@ 10,28 SAY '2 - UEDATE ADDRESS! 
®@ 11,28 SAY '3 - DELETE ADDRESS? 
@ 12,28 SAY '4 - RETURN TO UTILITY MENU! 
STCRE ' ' TO A:REELY 
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*k DATE: 18 JAN 1984 
*k YVERSICN: 1. 
*x MODULE NAME: COGUEDT 
** MCDULE EURPOSE: ZILOWS ADDITION, DELETION, OR 
** USDATING OF COG FILE 

x 
**k MODULE INTERFACE LEFINITION 
ik IXPUTS: NCNE 
+ OUTPUTS: NONE 
#* MODULE FROCESSING NARRATIVE DESCRIPT 

*K 
$k ACCEPTS NEW COG DATA, VERIFIES E NEW 
es CCG IS NOT A DUPLICATE, AND VE HE 
a EXISTENCE CF AN ITEM MANAGER R ACCE 
3% UEDATE INFCEMATION ON COG-ITEM ASS 
#2 MENTS, VALIDATES THE EXISTENCE TEM 
a MANAGER RECCRD, AND UPDATES TH LE. 
xx PREVIOUSLY DELETED COGS MAY BE ATED 
a 3 WITH THE UELCATE OPTION. ACCEPTS OG TO 
ok EEF DELETED, VERIFIES THE RECORDS ENCE, 
$k AND VERIFIES THAT NO ACTIVE CASE T FOR 
+s mins COG: 
**k  SUPERORDINATE MODULES: UTILNENU 
**  SUEORDINATE MODULES: NONE 
#* AUTHCR: R. G. NICHOLS 
oe he ake he ee te i ke ok ie i oe oe ke oie KK oe KO i eK OK kk eK eo ee ok KK OK aK eK KK KKK KK KS 
“EeOCOEDT. PRG 
* LAST UPDATE 18 JAN &4 
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@ 6,24 SAY '***** COG FILE EROCESSING ****xx! 
@9.28 SAY.'1 - ALE coct 
@ 10,28 SAY '2 - UEDATE COG! 
@ 11,28 SAY '3 - LELETE COG! 
®@ 12,28 SAY '4 - RETURN TO OTILITY MENU! 
STCRE ' ' TO GREELY 
2 15,40 GET G:REPLY 
READ 
DO WHILE G: REPLY < '1' .OR. G:REPLY > 
@ 23,32 SAY 'ENTER 1 - & ONLY! + CH 
@ 15,40 GET G: REPLY 
READ 
ENDDO 
NO CNSE 
kEKK JTF CHOICE IS ITC QUIT, RELEASE LOCAL MEMORY VARIAELES 
xk AND RETURN TO CALLING PROGRAM 
CASE G:REPLY = ‘4! | 
RELEASE ALL LIKE G:* 
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Cnet FOR DUPLICATE RECORD 
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SELECT PRIMARY 
APEEND BLANK 
REELACE COG WITH G:COG, IM WITH G:IM 
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IF ITEM MANAGER NOT ON FILE PROVIDE OPTION TO 
CORRECT IM CODE, ADD THE IM RECORD OR EXIT WITHOUT 
UEDATE 
®@ 16,27 SAY ‘ITEM MANAGER NOT ON FILE! 
@ 18,30 SAY '1 - CHANGE I.M. CODE! 
@ 19,30 SAY '2 - ADD ITEM MANAGER'® 
@ 20,30 SAY '3 - EXIT' + CHR(7) 
STCRE ' ' TO G:REPLY2 
Q 22,40 GET G:REPLY2 PICTURE '9! | 
DO WHILE G:REPLY2<'1' .OR. G:REPLY2>'# 3! 
@ 23,40 GET G:REPLY2 
READ 
ENILO 
DO CASE 
CASE G:REPLY2 = 1° 
@ 16,27 SAY ! ts 
eS q t 
@ 18,30 SAY ! 
@ 19,30 SAY ' t 
@ 20,30 SAY ' 
@23,40 SAY ' ! 
CASE G:REELY2 = '2! 
STORE F TO G:GETIM 
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CASE G:REPLY = *2' 
Sens *  TOrmae. £M 
STCGRE * “ere G:COG 
PROMET FOR AND ACCEPT COG BEING UPDATED 
ERASS 
Se) Sonoma BAtA FOR COG BEING UPDATEL? 
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DC WHILE !(G:REPLY3) <> 'Y' .AND. !(G: 
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REAL 
ENDDO 


REAGIIVATE RECCRD LF »REQUESTED 
ae 732 Sat oo. 
18 SA 


m 19,19 SAY 


ELSE 
SlrChs & T Gage xOCEsSs 
ENDIF 
ENDIF 
Dee wd’ GsPROCESS 
Sens iM TO G: i 
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ni SAY ‘ITEM MANAGER * GET IM 
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RESees LM WITH G:it 
ENDIF 
USE 
SsigGme fF TO GsPROCESS 
ENDDO 
ate 1 


eekeX JTF CHOICE IS TC DELETE 
CASE G:REPLY = '3! 
STORE ' ' TO G:IM 

STCRE ' '* TC G:COG 


eee FRONPT FOR AND ACCEPT COG BEING DELETED 


ERASE 

@ 6,28 SAY ‘ENTER COG BEING DELETED'® 

@ 9432 SAY 'COG ' GET G:COG PICTURE '9A'? 
STCRE ! (G:CCG) TO G:COG 


SELECT PRIMARY 
iors Ds CCG ENIEX D: COGS 


peep VERIFY COGS EXISTENCE 
poke &CG3COG 
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WAIT 
ELSE 
kkk VERIFY THAT NC ACTIVE CASES ARE ASSIGNED TO THIS COG 
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EXil. DATS BASE PACK MODULE 


a> 4a SS a ol 5 ey a ee ED 


nie te oe ek Ko fe ok ok ok ok ae ak fe oh ob a kok ok ke oe ke ok oo ok eK ok kK ek KK eo K oe ok ok Ae ok 
hk de 
**xX¥ DATE: 1&5 JAN 1984 we AK 
** VERSICN: 1.0 AR 
*x MCDULE NAHE: DBPACK vk HE 
** MCDULE PURPOSE: EACK THE DATA BASE AND REMOVE KOE 
~ RECORDS TAGGED FOR DELETION hi 
* He 
**¥ MCDULE INTERFACE CEFINITION IK 
XK INEUTIS: C:WHO 7 oR 
KK OUTPUTS: NONE FE 
* KI 
**X MCCDULE FROCESSING NARRATIVE DESCRIPTION: * 
KX CCMPRESSES THE DATA EASES BY REMOVING RECORDS ** 
KX ae SoCo neh One PRGEOR £O EXECUTION, THE ** 
OK USERS EASSWCRD IS VERIFIED TO ENSURE THAT HE KK 
ve Mm AUTHOR GZED TO PERFORM THs PACK. me 
** SUPEFORLINATE MOLCULES: UTILMENU KK 
** SUBCRDINATE MODULES: NONE aR IK 
i AUTHCR: R. G. NICHOLS ee 
* KKK Abo ok dk AR doko Ak OR KKK KK KAKA KKK KKK KOK RK eK KK OK RK KK KKK KK 


exeKX DISPLAY WARNIAG MESS AGE 


ERASE 
@ 1,25 SAY '#*#** DATA BASE PACKING ****#! 
@ 3,24 SAY ** * * me x * K XK &« «OF 
@ 4,24 SAY '% x 
®@ 5,24 SAY ‘x . WARNING xf 
@ 6,24 SAY 'x x 
@ 7,24 SAY ‘x THIS PROGRAM WILL PACK #* ! 
@ 8,24 SAY '* ALL DELETED CASES AND THEN * * 
@ 9,24 SAY '* WILL RE-INDEX THE FILES * ! 
@ 10,24 SAY ' xf 
@ 11,24 SAY '* IF EXISTING FILES ARE * 
@ 12,24 SAY ** LARGE, THIS COULD TAKE x 
@ 13,24 SAY ' HOURS x 
@ 14,24 SAY 'x x 
@ 15,24 SAY ** * *® * * ® *® *% K K K RK KX KR KH HK 1 
@ 17,24 SAY ' ARE YOU SURE YOU WANT TO! 
@ 18,24 SAY CONTINUE! 
@ 19,24 SAY * <ENTER Y OR N>* + CHR(7) 
STCRE ' ' TC P:REPLY2 
@ 21,40 GET E:REPLY2 
*eke* ACCEET RESPONSE FROM USER 
READ 
DO WHILE! (E:REPLY2)<>1¥! «AND. i (PE REPLY2) <>" 0" 
@ 23,32 SAY ‘ENTER Y OR N ONLY' + CHR(7 
@ 21,40 GET P:REPLY2 PICTURE ‘A! 
READ 
ENDDO 
@ 23,32 SAY ' 
@ 17,40 SAY ' * 
eke eX ACCEET AND VERIFY PASSWORD PRIOR TO EXECUTION 
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Meio DSTECH 
ASSWORD .~AND. # <> Q 


-etdOta ob 


SS 
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OD 
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wm MMe OVOKs 


O 
(NA MOMS we th 


tg WHiejch) 
Q wa 
(NN BIMee(NMOM 


Meee «6 ISPLAY 


' OPEN DATA B 
'OF CLOSED CA 
Y '***** DO NO 
N1 INDEX D:OCASE 


N2 INDEX D:OCASE2 


> UN rT 
ORMO tri a MON» 
nA KH ors MN 
= we 
2 tS 
HW) re 
2 phy 


ty 
i 
” 

H=s WHVUcUaeewean 
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(a) 


=< 
—- 
“© 
—" 


AB 
roe 


rr 
at 
oO 
tty 
xy om 
oO 
by 
MFA) 
tA 


IF 


D 
ie 
BERSE ALL LIKE P:* 
TURN 


EN 
US 
RE 
Eee 


exe KX END OF PROGRAM 
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Ree D* 
TO CONTINUE! 





HK IE AK NE EA KO RC OK oR ae a Ke aR Ae OK Oe Ne AE IE aK IE OK AE OK OK RK KK 


MTERFACE PEPENITION 
1S: NCNE 
its: NONG 
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NPU 
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WOMUVUEMGEHYU et 
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OredtH AMe Fx 
MmOoAd=zAMetM 
MgO 2D s mek 

YyMmMta Qe tH HOU 


NCLTULE 


3k 
# ok 
oe 
ex 
sok 
ok 
2 3k 
2k 
x 3 
oo 
oi 3k 
# 
si ak 


EK 


UTILMENU 


NONE 
Lo AVAILTABIE TO THE USER AND ACCEPT 


We AE oe he ie i ie ee eae ie ie ee ee oe aK i aie Oe ae ie a AK Oe ie OE ie ie EK a i Rk KE cok oie OR aK OK kK KK 


x 3 
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by 4 ba 
Peete 
Menu VIe (9 
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Ooaoadde © 
WIOOUINGNINGN oF 
RING a & & oft & 
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POO DVO Oh Se Cee KG 
me Efe 
MBGBaseasBanens 
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oe DOGRUTM EMORY VARLABLES AND 
Ae 


= 1s 
LL IIKE A 


Bee y 
SE A 


A:R 
RELEA 


aeee* VALIDATE SELECTICON 
CASE 





KK OK OK 


KK IK OK 


KKK A KK 


HK AK Kk 
OK KK 


WR KK OK OK 


Hoceeac N 


Poe eee ANALYST SELECTED 


® 10,45 GET 
a 


EN 
Q 


SAY 
2 23423 (A: T ECHCODE} TO A:TECHCODE 


VALICATE FOR DUFLICATE USER ID 


CASE A:REPLY = '1é 
Sheen | ' TO A: TECHCODZ 
STORE ' ' TO A:PASSWORD 
STCRE ! ' TO A:NAME 
CLEAR SCREEN AND PROMPT FOR NEW ANALYST INFORMATION 
FRASE 
® 6,22 SAY "ENTER DATA FOR ANALYST BEING ADDED! 
@7.22 SAY ' FOLLOW EACH ENTRY WITH A <CRD>? 
@ 10,28 SAY "ANALYST CODE ' GET A:TECHCODE 
READ 
VALIDATE NO EMEEDDED BLANKS 
LO WHILE $(A:TECHCODE;1,1) =" ' .OR. 
$(A: TECHCCDE,2, 1) Ore $ (A: TECHCODE, Sede 
xt t (A: TECHCODE,4, 1)=! ' 
@ 23,23 SAY "ANALYST CODE CANNOT CONTAIN!®: 
+ ' BLANKS' + CHR(7) 
ROP ECHCOD: 


USE D: TFCHCCLE INDEX BD: TECH 
FIND S&A:TECECODE 
IF # <> 0 
@ 22,14 SAY "RECORD CURRENTLY EXISTS ': 
+ '= STRIKE ANY KEY TO SONeeEN OE 
WAIT 
ELSE 
212,28 SAY "ANALYST NAME ' GET A: NAME 
SET CONSCLE OFF 
STORE T TC A:ENTERESW 
ERCMET FOR USER PASSWORD AND VERIFICATION OF THE 
PASS WORD 
@ 14,28 SAY "PASSWORD 
DO WHILE A:ENTERPSW 
214,44 SAY ' ? 
ACCEPT TO A: PASSWORD 
STORE ' ' TO A: VERIFY 
@ 16.28 SAY "VERIFY PASSWORD ! 
ACCEPT TO A: VERIFY 
IF A:EASSWORD <> A:VERIFY 
@ 23,5 SAY 'VERIFICATION PASSWORD DOES '; 
+ 'NOT MATCH - REENTER PASSWORD 
+ ' AND REVERIFY!' + CHR(7) 
STCRE ' ' TO A: PASSWORD 
STCRE F TC A:ENTERPSW 
ENDI 
ENDDCQ 
SET CONSCLE ON 
CREATE THE NEW ANALYST KECORD 
APPEND BLANK 
REPLACE TECHCODE WITH ! (A:TECHCODE), NAME WITH: 
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MK IK 


KKK KK 


KK KK 


eK eK OK 
EK HK IK HK 


MEK HK OK OK 


MK HK KK 


1 (A: NAME), 
USE 
ENDIF 
IF UEDATE ANALYST 
CASE A:REPLY 2! 
STCRE 3 
STORE * ' TO 
EECMET FOR AND ACCEPT AN 


Smeets 


ERA 
a ue 15 SAY. VENTE & 


ANALY 
+ * UPDATED ° 

KE AD 
sume § (ASTECHCODE) TO 


Veiga CODES -BxIST ENCE 


ioe: TECHGOLE INDEX Ds: 


Been GCASTECHCODE 


IF # = Q 
a2) SA VRE CORE 
+s SRT 
WAIT 
ELS 


Bombe e lth As PASSWORD 


EL 


Ome N Awe 


ae feCHCODE 


wero t CODE 


Meeeneon TO BET: 
HCODE 


Toca 


NOs b Guin D..* s 
Wiehe Oo CONS TNUE* 


SLOREST TC se22nCCESS 


IEF MARKED FOR LELETION, 
REACTIVATED 
IF * 
STORE ' ' TO A:E 
@ 18,22 SAY ‘REC 
'oDE 
®2 19,18 SAY ‘DC 
+ ‘REA 
®@ 21,40 GET A:RE 
R EAD 
DO WHILE A:REPLY 
ae 22,5 she 
d.21,40 6ET 2 
REAL 
ENDDO 
IF (2: REPLY 2) = 
RECALL 
@ 18,22 SAY 
ote 
@ 19,18 SAY ! 
+ 1 
®@ 21,40 Say ! 
ELSE 
STCRE FTC A 
ENDIF 
ENDIF 
EFOMPT FOR AND ACCEPT UP 
DO WHILE A:PROCESS 
STORE NAME TO A: 
2 8,15 SAY "ENTE 
READ 
D2 20s AM ila 
+ 
STORE ' ' TO A: 
®@ 23,40 GET A:RE 
ACCEET UPDATE/EXIT OFTIC 


elHh wk wWOXOni 


eee neCORD SHOULD BE 


2<>en! 
CHR (7) 


ae 


NAME 
R NEW NAME DATA ‘! GET NAME 
POST. UPDATE INFORMATIONS; 





READ 
Deer Asami i2 < Fi! .OR. ASREPLY2 > *2° 
Pees sOnGo ey ASREPLY2Z PICTURE ‘9° 
REAL 
ENDDO 
iP eee PLyYZ =,' 1° 
PeeeeACE NAME WITH ! (NAME) 
Bist 
REFLACE NAME WITH A:NAME 
ENDIF 
Sune relto A >PROCESS 
ENDDO 
US 5 
Bou 
mere JF DELETE OPTICN SELECTED 
Choe. REPLY = "3° 
Seene * ee Oe WA 
Saves Pel Omnc. SC HCO DE 
Sewme FROMPT FOR AND ACCEPT ANALYST CODE 
ERASE 
eon) ee eR ANALYST, CODE FOR RECORD TC EE CLELETED °; 
GET A:TECHCOTE 
READ 
pigere® ! (As EECHCODE) TO A:TECHCODE 
UiemeeeD: TECGHECCUE ENDEX Ds TECH 
es eae 
ec 2 ere eon OOmmumNOle rOUND =~ STRIKE ANY KEY'; 
oe eee een ON Us * 
WAIT 
Poe 


Gee §86©60cCLECK FOR ACTIVE RECORDS ASSIGNED 


IF ACTIVE>O .OR. TRANSMIT>O .OR. RESPOND>O 
9,21 SAY "ACTIVE RECORDS EXIST FOR '; 
+ 'THIS ANALYST! 
@ 10,21 SAY "ALL ACTIVE RECORDS MUST BE'; 
; + ' REASSIGNED! 
@ 11,21 SAY ! PRIOR TO DELETION’ 
WALT 
ELSE 
#4*%% INDICATE IF RECORD PREVIOUSLY DELETED 
IF* | 
@ 23,13 SAY ‘RECORD PREVIOUSLY DELETED '; 
+ ‘= STRIKE ANY KEY TO CONTINUE! 
WAIT 
ELSE 


eke EROVIDE OPTION TO DELETE OR EXIT 


Veco 2 on. anole + NAME 
a (ee Seow the S ANALYST '*°; 
toa a ced * 

ShGrn.  'telO vA aREPL YZ 

Braet 4 GElekeweeieee LCTURE '9°* 

Ben win le Aske rzes it GOR. ASREPLY2 > '2! 
ho, 4 OG ease br 2 PICTURE '9° 
READ 

ENCDLO 

Pe ASREPLY2 = ' 1° 
LELETE 





*eee%%* IF LIS 


CAS 
Pee. DS TECH 


HO nih 


Poot BBCODE, NAME OFF 


: Sonera y REY [TO CONTINOUS 
- DELiAwee= Cr 


CIBN Vode U VOR Cty 


ENLDCAS 
ENDDC 


meKEKKK END OF PROGRAM 
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KXIV. PASSWORD FILZ UPDATES MODULE 


FE HK HK HE KK AK RK I KK KR eR ee KK ee EK OE IE AK EK i oe AE EE EK OR OK RE RE A OK OK OK 


MK ae Oe 
**x DATE: 15 JAN 1984 oo 
x* VERSION: 1.0 a 
a= MODULE NAME: PASS 7 
= PeOULE "SUR POSE: EASSWORT UEDATING ae 
= > Aegele 
ma MODULE ENTERFACE CEFINITION KK 
‘oe PyeuUdsS: NONE * 
ex OUTEUTS: NONE 7s 
KK aK 
PoeoOULE EROCESSING NARRATIVE DESCRIPTION; ao 
aoa Weekes Lot USte ID AS INPUT, REQUESTS THE ok 
ee CURRENT PASSWORD, VALIDATES IT, AND REQUESTS % 
oa THE ENTRY AND VALIDATION OF THE NEW PASSWORD. aa 
em AN ILLEGAL USER IU OR AN ILLEGAL PASSWORD WILL ** 
ee aus f ine PASSWORD UFDATE TO TERMINATE. Pe 
*e SUPERORDINATE MODULES: UTILMENU eK 
fees UECRDINATE MODULES: NONE 2 
te ARUTHCR: Re. Ge. NICHOLS ee 


ok ote 2 ake ok oR fe a ake ak ok ak ke of ofc keke ke ok of ok ake ake akc ke fe Kak tc ok ofc ke oe ke ok ake oe ote ake of ake ak ake of fe ak ak ok ak kt kok ak ak 


seeeoe CIFAR SCREEN AND PROMPT FOR USER ID 


ERASE 
STORE 1 ' TO E:PASSWORD 
STORE ° ' TO P: TECHCODE 
a6, 5 4 SAY '****x* BASSWORD UPLATE PROCESSING *****! 
®@ 9,24 SAY "ENTER DESIRED ANALYST CODE ' GET P:TECHCODE 
ake ACCEET AND VALIDATE USER ID 
READ 
STORE !(P:TECHCODE) IC P:TECHCODE 
USE D:TECHCCDE INDEX D:TECH 
EIND EP: TECHCODE 
ie om 
@ 22,14 SAY "RECORD DOES NOT EXIST '; 
'- STRIKE ANY KEY TO CONTINUE'+CHR (7) 
WAIT 
ELSE 
SET CCNSCLE OFF 
SET EXACT ON 
xa ACCEET AND VALIDATE PASSWORD 
®@ 11,24 SAY "ENTER CURRENT PASSWORD ' 
ACCE®T TO P: PASSWCRD 
IF P:EASSWORD = * 
SFT CCNSOLE ON 
RELEASE ALL LIKE P:* 
RETURN 
ENDIF 
STORE P:EASSWORD+' ' TO P: PASSWORD 
IF $(E:EASSWORD,1 a) <> PSWD 
® 22,8 SAY 'ENVALID PASSWORD FOR ANALYST '+P:TECHCODE; 
+ 1 = STRIKE ANY KEY TO CONTINUE! + CHR (7) 
WAIT 
ELSE 
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Seem [OO PIGEIPASYD 
eee Ee ACCEPT NEW PASSWORD AND VALIDATION OF NEW PASSWORD 


DC WHEELS © SGETEAGRD 
@ 13,24 SAY ‘ENTER NEW PASSWORD 
Reeorl TO FLEASSWORD 
@ 15,24 SAY ‘VERIFY NEW PASSWORD : 
mecerlT TO PSVEREFY Fw 
mae PS PA SewORD <> PSVERIFYPW 
Cee eer eee tr ORTON PASSWORD DOES NCT MATCH! ; 
Hee ooo eee PASSWORD AND REVERIFY™ + CHR (7) 
SrORS f fo Ve 2Gs TPASWD 
ENDIF 
ENDDO 
Ree PSWD WITH Ps PASSWORD 
USE 
ao LE 
eel EXacr? OFF 
set CCNSCLE ON 
BeDIr 
ete*xx RELEASE LOCAL MEMORY VARIABLES AND RETURN TO 
aeeee 6CALLING PROGRAM 
RELEASE ALL LIKE P:* 
RETURN 


Sermrwe ENE CF PROGRAM 





ME HEE eK eK IK eK eae ie KK oR ae ie eee eK I KE 2K oO AK OK OK AK KK ke OK OK IK OK Ke 


eK 

**x DATE: 20 JANUARY 1984 

m= VERSICN: 1.0 

mee 6 ODULE NAMES UTIILINDX 

me MODULE PURPOSE: KE-INDEX AL 
meee OODULE INTERFACE CEFINITION 
a Mievto: CsWHO, C: JULIAN 
ane SUieUTS : NONE 

ti (ODULTE FROCESSING NARRATIVE 
7% evel Lt be PY ober THE SU 
an THE INDEX FILES WHEN T 
**K CURNenre LNDEABOs AFTER 
a Seen vy Loon S CHOLCE TO 
ee IS DELETED AND THEN RE 
We be OF THE CSPASASE FI 
oe Mee TO BROCESS, AND C 
EK WEN IT BS TEE ONLY PR 
i ODER SYSTEM. 

ee OSUPERORVDINATE MOLULES: UTIL 
** SUEORDINATE MODULES: NONE 
< AUTHCR: J.G. BOYNTON 

He HE HE KK eK OK eK 

Seems «60m EL ETE CURRENT INDICES 
Week FILE D: OC eS NDX 

DELETE FILE D:ONSN. NDX 

Peete FILE D:OCASE2.NDX 

Peete FILE D:CCAS&£1.NDX 

Deol e FILE D: CNSN.NDX 

Pemeele FILE D: CCASE2.NDX 

meee BEGIN REINDEX CF FILES 
USED SOFENT 

INDEX ON CASE TO D: OCASE1 

INDEX CN NSN TO D:ONSN 

ee DSOPEN2 

ieee ON CASE TO D:OCASE2 

tee DsCLCSE 1 

INDEX ON CASE TO D:CCASE? 

INDEX ON NSN TO D:CNEN 

Uses CLCS EZ 

INDEX ON CASE TO D: CCASE2 

toe DsTECHCCDE 

even ON DECHCODE TO D:TECH 

tee els COG 

mreex. GN COG TO 0D: COGS 

Vote aw eR SL 

feiewowmeors LTO Ds; DISCODE 


Pag 


Poise SST LES 


DESeR TPT ION; 
PERVISOR TO RECO 


eo oe ei. DESL RO 
CCpomanCkh OF T 


Qh Gro 


MENU 


Ae 3K 
OK 
eK 


xeK 


oe ok 
ste 
Ae sk 
ak 
2: 
ee 
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ek 
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sk xe 
3k 
ek 
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3 
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ot oe 
4c ok 
ste 3 


MEO AE KK IK OK OR Re KE he ie KK EEO OK OK OK OK IK eK EK IE OE OK OK EK OK KK KK 





Peet oR UCRE SS 
moe. Ch Le TO Diid 
RETURN 


eeaewkx ENT OF PROGRAM 


243 





XZVI. OPEN CASE 


ok ote eke oe ee ok oe eo ao oe ee ke oe eo ot oo eo ok ok ke eK ek ooo CK ok ak KK ok ok ok ck oR kk ok 
He * 
AK LATE: 5 JANUARY 1°84 IK 
Vewees CN; 1.0 * 
AK 3K MepULE NAME: OCASERPT mE HE 
we Preretmet “Pune Ose>s PROYEDE ANALYST WITH LESTING CF ALL Fae 
KX Comnutomworgne CASES IN THE DATA BASE. ae AK 
*¥*%¥ MODULE INTERFACE DEFINI TION AK 
mH Mmaeuls; CewHoO, Cz:JULIAN * 
eK OUTPUTS: NONE eK 
= MODULE EROCESSING NARRATIVE DESCRIPTION: oe 
a AK ALIOWS THE ANALYST TO CHOOSE eh a RECEIVING *E Ae 
a aK eetoe OPemate CURRENTLY OPEN CASES OR TO RETURN ** 
* TO THE MAIN EROCESSING MENU. THE PROGRAM DOES A ** 
KK Sout yee ea OF THE DATA BASE TO IDENTIFY * 
as THE APPROPRIATE CASES, AND LISTS THEM TO EITHER ** 
A AK ies Chet when wr ROINTRERS LIST SHOULD NOT EE aad 
KK SENT TO THE ERINTER IF ANYONE ELSE WILL BE HH 
a Cenc TVeseeekReE THE FROCESS IS COMPLETED. va 
*xx SUPERORDINATE MOLDULES: MENU 4k 
a 3K SUECRDINATE MODULES: NONE HK 
e AUTHOR: J.G. BOYNTON a 
eX oe oe oe Kote oe oe a KOK tek ke ke fo eke ko ee ok eke ke ok ke ok ke kek ke ko ok ok ek 
FRASE 
Seene * * TO V: PRINT 
me AT 
YCU MAY RECEIVE THE REPORT ON THE SCREEN OR 
AT THE PRINTER 
1 ~ SCREEN 
Z = PRINTER 
3 - EXIT 
CehNGor YOUR CHOICE > 

EVDTEXT 
Geez eso SAY’ * GET V:ERINT 
READ 
IF V:FRINT = !1! 

ERASE 

USE D:CPEN1 

REPCRT FORM OPENCASE FOR WHO = C:WHO 

Sees ANY KEY TO CONTINUE' 

WALT 
ES 6 


IP SVeeeINT = '2°' 
ERASE 
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END Ie 


BASE V:PRINT 


END CF PROGRAM 
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